codice:
Dim Word As String = "Parola da cercare"
Dim Index As Int32 = RichTextBox1.Find(Word)
RichTextBox1.SelectionStart = Index
RichTextBox1.SelectionLength = Word.Length
'Oppure
RichTextBox1.Select(Index, Word.Length
Trovi maggiori informazioni su questo controllo qui.