Dim lPos As Long
Dim myText As String
Dim mySuch As String
 
myText = "Bin ich drin?"
mySuch = "AOL"
 
lPos = InStr(myText, mySuch)  <font color=green>' lPos liefert 0, da AOL nicht 
' drin ist ;-))</font>
 
mySuch = "ich"
lPos = InStr(myText, mySuch)  <font color=green>' lPos liefert 5!</font>