Pesquisa no RichTextBox

como localizo e marco palavras em um richtextbox

fiz a rotina abaixo mas não consigo parar a pesquisa quando quero e tambem a pesquisa é muito lenta. Será que tem jeito?

Public sFind As String
Private Sub Command1_Click()
    sFind = InputBox("Localizar o que?", "Procura", sFind)
    If sFind = "" Then Exit Sub
    vtexto = RTF.Text
    Do
        RTF.SelStart = RTF.SelStart + RTF.SelLength
        If Len(RTF.Text) = RTF.SelStart Then Exit Sub
        RTF.Find sFind, , Len(vtexto)
        RTF.SelColor = vbRed
    Loop
End Sub

Private Sub Form_Load()
RTF.FileName = App.Path & "Teste.rtf"
End Sub

T+

Rinaldo