Try this code dude!!

Dim pos As Integer
Dim target As String

target = "xyz" 'What ever string you are searching for

pos = InStr(0, RichText1.Text, target)

If pos > 0 Then
RichText1.SelStart = pos - 1
RichText1.SelLength = Len(target)
RichText1.SelColor = vbRed
RichText1.SelBold = True
End If

.... so lemme know if it works dude!!!

AnkewDude!

There is no Genius without a touch of madness!!!