Dim s1z As String
            Dim idx As String
 
            idx = InStr(s1, "L2", CompareMethod.Text)
 
            If idx <> 0 Then
                s1z = s1.Substring(idx, 2)
                MessageBox.Show(s1z)
            End If

Dim löschen As Boolean

löschen = InStr(...) <> 0
löschen = löschen And InStr(...) = 0
löschen = löschen Or InStr(..) <> 0

If Not löschen Then
  aln.Add(...)
End If