For Each Line as String in TextBox1.Lines
if Instr(Line," das ist das Beispiel mit ein Leerschlag an Anfang") Then
 
End if 
 
If Instr(Line,"ohne Lehrschlag am Anfang") Then
 
End if 
 
If Instr(Line,"ohne Lehrschlag am Anfang") And Instr(Line,"und mit einem Zusatz" & _
  "String") then
'Das ist eigendlich das beispiel genau das ich meine, nach dem ich suche
End if 
 
next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist