Private Sub Text1_KeyPress(KeyAscii As Integer)
   If Text1.Text = "" Then Exit Sub
   If KeyAscii = 13 Then
     FindAWord Text1.Text, Text2
     Text2.SetFocus
   End If
End Sub
 
Private Sub Text1_LostFocus()
   If Text1.Text = "" Then Exit Sub
   FindAWord Text1.Text, Text2
End Sub
 
Private Sub FindAWord(ByVal sSuche As String, ByRef oText As TextBox)
   Dim a As Long, b As Long
   Dim c As Integer
 
   With oText
      a = InStr(.Text, sSuche)
      If a <> 0 Then
 
         b = InStr(a, .Text, Chr(32))
 
         If b > 0 Then
            c = b - a
         Else
            c = Len(Mid(.Text, a))
         End If
 
         .SelStart = a - 1
         .SelLength = c
 
      End If
   End With
End Sub