Выделить цветом определенное слово во всем тексте

Private Sub Command1_Click() Dim lWhere, lPos As Long Dim sTmp, sSearch As String lPos = 1 ’Здесь вы можете указать слово для поиска и замены sSearch = "FAQ" ’поиск по всему тексту Do While lPos < Len(Me.RichTextBox1.Text) sTmp = Mid(Me.RichTextBox1.Text, lPos, Len(Me.RichTextBox1.Text)) lWhere = InStr(sTmp, sSearch) lPos = lPos + lWhere If lWhere Then ’если строка для поиска найдена Me.RichTextBox1.SelStart = lPos - 2 ’установить начало выделения Me.RichTextBox1.SelLength = Len(sSearch) ’установить длину выделения Me.RichTextBox1.SelColor = RGB(255, 0, 0) ’изменить цвет выделения красным цветом Else Exit Do End If Loop End Sub Private Sub Form_Load() ’установите ссылку на любой файл в формате rtf или txt RichTextBox1.FileName = "C:\Мои документ?\courier.txt" End Sub