Private Function Suchen() As String
        Dim rl As String = Nothing
        Dim SuchErg As String = Nothing
        Dim logbuch_ds As New StreamReader("Daten/logbuch.log", True)
        Do Until logbuch_ds.EndOfStream
            rl = logbuch_ds.ReadLine
            If rl.Contains(": 0 Datens") = True Then
                SuchErg = SuchErg & rl & vbCrLf
            End If
        Loop
        logbuch_ds.Close()
        Return SuchErg
    End Function