<code>Dim myString As String
Dim lPos As Long
Dim strSuch As String
 
myString = "ghfklpTESTRINGjhgu"
strSuch = "TESTRING"
 
<font color=green>' Position ermitteln</font>
lPos = InStr(myString, strSuch)
If lPos > 0 Then
  <font color=green>' Suchstring gefunden, jetzt extrahieren</font>
  myString = Left$(myString, lPos - 1) & _
    Mid$(myString, lPos + Len(strSuch))
 
  MsgBox myString
Else
  MsgBox "Suchstring nicht vorhanden!"
End If</code>