RichTextBox1.SelectionColor = Color.Blue
Dim word As String = "potato"
If RichTextBox1.Find(word) > 0 Then
Dim position As Integer = RichTextBox1.Find(word)
RichTextBox1.SelectionStart = position
RichTextBox1.SelectionLength = word.Length
RichTextBox1.SelectionColor = Color.Blue
RichTextBox1.SelectionStart = RichTextBox1.Text.Length
End If