Dim abbruch As Boolean
Dim programm As object
 Dim lines() As String
        lines = IO.File.ReadAllLines(ListBox1.SelectedItem)
        Bot = CreateObject("wscript.shell")
        Do
            programm.sendkeys(lines(0) & "{ENTER}")
            For t As Integer = 1 To (Val(sending.Text) * 10)
                System.Threading.Thread.Sleep(100)
                Application.DoEvents()
                If abbruch Then Exit Do
            Next
            programm.sendkeys(lines(1) & "{ENTER}")
            For t As Integer = 1 To (Val(sending.Text) * 10)
                System.Threading.Thread.Sleep(100)
                Application.DoEvents()
                If abbruch Then Exit Do
            Next
            programm.sendkeys(lines(2) & "{ENTER}")
            For t As Integer = 1 To (Val(sending.Text) * 10)
                System.Threading.Thread.Sleep(100)
                Application.DoEvents()
                If abbruch Then Exit Do
            Next
            programm.sendkeys(lines(3) & "{ENTER}")
            For t As Integer = 1 To (Val(sending.Text) * 10)
                System.Threading.Thread.Sleep(100)
                Application.DoEvents()
                If abbruch Then Exit Do
            Next
            programm.sendkeys(lines(4) & "{ENTER}")
            For t As Integer = 1 To (Val(sending.Text) * 10)
                System.Threading.Thread.Sleep(100)
                Application.DoEvents()
                If abbruch Then Exit Do
            Next
            programm.sendkeys(lines(5) & "{ENTER}")
            For t As Integer = 1 To (Val(sending.Text) * 10)
                System.Threading.Thread.Sleep(100)
                Application.DoEvents()
                If abbruch Then Exit Do
            Next
            Do
                programm.sendkeys(lines(6) & "{ENTER}")
                For t As Integer = 1 To (Val(sending.Text) * 10)
                    System.Threading.Thread.Sleep(100)
                    Application.DoEvents()
                    If abbruch Then Exit Do
                Next
                programm.sendkeys(lines(7) & "{ENTER}")
                For t As Integer = 1 To (Val(sending.Text) * 10)
                    System.Threading.Thread.Sleep(100)
                    Application.DoEvents()
                    If abbruch Then Exit Do
                Next
                programm.sendkeys(lines(8) & "{ENTER}")
                For t As Integer = 1 To (Val(sending.Text) * 10)
                    System.Threading.Thread.Sleep(100)
                    Application.DoEvents()
                    If abbruch Then Exit Do
                Next
                programm.sendkeys(lines(9) & "{ENTER}")
                For t As Integer = 1 To (Val(sending.Text) * 10)
                    System.Threading.Thread.Sleep(100)
                    Application.DoEvents()
                    If abbruch Then Exit Do
                Next
            Loop
        Loop
    End Sub