Private Sub Textanzeigen(ByVal text As String)
        If Me.txtMeldung.InvokeRequired Then
            Dim d As New TextBoxCallback(AddressOf Textanzeigen)
            Me.Invoke(d, New Object() {text})
        Else
            txtMeldung.Text = text
            {Prüfungspuffer} = {Prüfungspuffer} & text
            Me.Filtern()
        End If
 
 
    End Sub
 
    Private Sub Filtern()
 
 
        If txtMeldung.Text.Contains("Tuttlingen") = True Or _
          txtMeldung.Text.Contains("o. SR") = True Or txtMeldung.Text.Contains( _
          "Geisingen") = True _
            Or txtMeldung.Text.Contains("NA") = True Or _
            txtMeldung.Text.Contains("Alarm") = True Or _
            txtMeldung.Text.Contains("Alarm:") = True _
            Or txtMeldung.Text.Contains("*") Then
            'Prüfungspuffer = txtMeldung.Text
        Else
 
            Me.Filtern()
            txtMeldung.Text = Prüfungspuffer
            txtMeldung.Text = ""
        End If
 
        'Dim Stichworte() As String = {"Abc", "Def", "Beispiel", "example"}
 
        'Dim StrArray() As String = {Prüfungspuffer}
        'Dim FindThisStrings() As String = {"ABC", "DEF", "Beispiel"}
        'For Each Str As String In StrArray
        '    For Each findStr As String In FindThisStrings
        '        If Str.Contains(findStr) = False Then
        '            'Das was halt zu tun ist, wenn der NICHT String enhalten _
          ist!
        '        End If
        '    Next
        'Next
    End Sub