If System.IO.File.Exists(pfad) = False Then
            MessageBox.Show("Der Pfad den sie angegeben haben ist ungültig.", _
              "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
            tester.Stop()
            'Butten Rename
        Else
            Dim rlog As New System.IO.StreamReader(pfad)
            Dim report As String = rlog.ReadToEnd.IndexOf("bla")
            rlog.Close()
            Dim rlastreport As New System.IO.StreamReader("lr.dat")
            Dim lastreport As String = rlastreport.Read
            rlastreport.Close()
            If report > lastreport Then
                MessageBox.Show("Neues bla gefunden!!!", "Info", _
                  MessageBoxButtons.OK, MessageBoxIcon.Information)
                Dim wlastreport As New System.IO.StreamWriter("lr.dat")
                wlastreport.WriteLine(report)
                wlastreport.Close()
            End If
        End If