For Each lines As String In IO.File.ReadAllLines(ListBox1.SelectedItem)
    programm.sendkeys(lines & "{ENTER}")
     For t As Integer = 1 To (Val(sending.Text) * 10)
         System.Threading.Thread.Sleep(100)
         Application.DoEvents()
         If abbruch Then Exit Sub
     Next
Next