Dim T1$, Suche$, Pos1&
 
T1 = "Hallo h e u t e ist ein guter Tag"
Suche = "h e u t e"
Pos1 = InStr(1, T1, Suche, vbTextCompare)
If Pos1 > 0 Then
  MsgBox "Gesuchter Text ab Position " & Pos1
Else
  MsgBox "Text nicht gefunden."
End If

Gruss,

Zardoz