Private Sub KeyWordLighter(Rtf As Object, ByVal sKeyWord As String, ByVal _
  nColor As Long)
   Dim f As Long
   f = 1
   Do While f <> 0
      f = InStr(f + 1, Rtf.Text, UCase(sKeyWord))
      If f > 1 Then
         Rtf.SelStart = f - 1
      Else
         Rtf.SelStart = f
      End If
      Rtf.SelLength = Len(sKeyWord)
      Rtf.SelColor = nColor
   Loop
End Sub