For Each blackcount As String In Blacklist
    If text.Contains(blackcount) Then
       tslBlack.Text = blackcount
       tslEingangzeit.Text = TimeOfDay
          If modAllgemeinHaupt.Diaganz = True Then
             msg = ""
             text = ""
          Else
             For Each whitecount As String In Whitelist
                If text.Contains(whitecount) Then
                   entfernt = text.Remove(0, Zeichenentfernen)
                   txtMeldung.Text = entfernt
                   txtMeldung.Select(Len(txtMeldung.Text), 0)
                   tslStichwort.Text = whitecount
                   tslEingangzeit.Text = Now
                   IO.File.AppendAllText("C:\Protokoll.txt", text)
                   msg = ""
                   text = ""
                End If
             Next whitecount
          End If
       Next blackcount