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
    End Sub