Søgning efter tekst der skal stå med fed skrift

Dim FedeOrd As String, arrFedeOrd() As String, HeleTeksten As String
  FedeOrd = UCase("Navn,Arbejde,Info,Fritid,Uddannelse,Adresse")
  arrFedeOrd = Split(FedeOrd, ",")
  HeleTeksten = UCase(r.Text)
 
  Dim ix As Integer, SearchStart As Long
  For ix = LBound(arrFedeOrd) To UBound(arrFedeOrd)
    SearchStart = 1
    Do While InStr(SearchStart, HeleTeksten, arrFedeOrd(ix)) <> 0
      SearchStart = InStr(SearchStart, HeleTeksten, arrFedeOrd(ix))
      r.SelStart = SearchStart - 1
      r.SelLength = Len(arrFedeOrd(ix))
      r.SelBold = True
      SearchStart = r.SelStart + r.SelLength
    Loop
  Next