RichText Format Bold

[Hack]

You can make it bold and change the color if you want.

Dim strWord As String
Dim lPos As Long
 
strWord = "Hello"
 
lPos = InStr(1, RichTextBox1.Text, strWord, vbTextCompare)
 
If lPos > 0 Then
    With RichTextBox1
       .SelStart = lPos - 1
       .SelLength = Len(strWord)
       .SelColor = vbRed
       .SelBold = True
       .SelStart = Len(RichTextBox1.Text)
    End With
End If