Me.SetText("Zyklus wird gestartet")
        Sleep(100)
        Do
            Me.Label1.text = "Suche nach dateien"
            Sleep(1000)
            If System.IO.File.Exists("C:\test.txt") Then
            MessageBox.Show("Datei gefunden")
            End If
            If Me.CheckBox1.Checked = True Then End
            Me.label1.text = "warte..."
            Application.DoEvents()
            Sleep(1000)
        Loop