RichTextBox и ключевые слова - VB

Формулировка задачи:

Добрый всем день! Есть RichTextBox с полностью загруженным текстом и массив ключевых слов. Нужно выделить ключевые слова другим цветом. Сейчас использую вызов в цикле метода Find. Все хорошо, но: заметно тормозит при большом списке ключевых слов; во время выполнения каждого Find MousePointer становится HourGlass, что несколько напрягает Если кто может что-то подсказать, буду очень признателен

Решение задачи: «RichTextBox и ключевые слова»

textual
                            Листинг программы 
                        

                            Private Sub DoHightlight(MyRich As RichTextBox)
Dim i As Integer
Dim j As Long
  For i = 0 To UBound(arrWords)
    j = -1
    Do
      j = MyRich.Find(Trim(arrWords(i)), j + 1, , rtfWholeWord)
      If j = -1 Then Exit Do
      MyRich.SelColor = vbRed
    Loop
  Next i
  MyRich.SelStart = 0
End Sub
                        