Dim sSuche As String, nRetVal As Integer
 
sSuche = "Test"
nRetVal = InStr(1, Text1.Text, sSuche)
 
With Text1
  .SelStart = 0
  .SelLength = nRetVal - 1
  [color=green]' -2 wenn das Leerzeichen hinter dem letzten Wort nicht mit 
  ' markiert werden soll
  .SetFocus
End With

Gruß
Marcus