questo ti trova la prima corrispondenza:
codice:
If InStr(Text1, Parola) > 0 Then
    Text1.SetFocus
    Text1.SelStart = InStr(Text1, Parola) - 1
    Text1.SelLength = Len(Parola)
End If