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 = ""
                End If
            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
    End Function