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