Function SearchtextCount(ByVal txt As String, ByVal searchtext As String) _
      As Int32
        Dim lc As Integer
        For Each l As String In TextBox1.Lines
            If l.Contains("a") Then Continue For
            lc += System.Text.RegularExpressions.Regex.Matches(l, _
              searchtext).Count()
        Next
        Return lc
    End Function

________
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