Public Class Form1
    Dim Abbruch As Boolean
    Dim bot As Object
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        bot = CreateObject("wscript.shell")
        Do
            If RadioButton2.Checked Then
                bot.sendkeys("/p " & TextBox1.Text & " " & ":" & TextBox2.Text _
                  & "{ENTER}")
                For t As Integer = 1 To TextBox3.Text * 10
                    System.Threading.Thread.Sleep(100) '50 * 0.1 sek warten
                    Application.DoEvents()
                    If Abbruch Then Exit Do
                Next
                bot.sendkeys("/p " & TextBox1.Text & " " & ":" & TextBox4.Text _
                  & "{ENTER}")
                For t As Integer = 1 To TextBox3.Text * 10
                    System.Threading.Thread.Sleep(100) '50 * 0.1 sek warten
                    Application.DoEvents()
                    If Abbruch Then Exit Do
                Next
            End If
        Loop
        If RadioButton1.Checked Then
            bot = CreateObject("wscript.shell")
            Do
                If RadioButton1.Checked Then
                    bot.sendkeys(TextBox2.Text & "{ENTER}")
                    For t As Integer = 1 To TextBox3.Text * 10
                        System.Threading.Thread.Sleep(100) '50 * 0.1 sek warten
                        Application.DoEvents()
                        If Abbruch Then Exit Do
                    Next
                    bot.sendkeys(TextBox4.Text & "{ENTER}")
                    For t As Integer = 1 To TextBox3.Text * 10
                        System.Threading.Thread.Sleep(100) '50 * 0.1 sek warten
                        Application.DoEvents()
                        If Abbruch Then Exit Do
                    Next
                End If
            Loop
            Do
                If RadioButton3.Checked Then
                    bot.sendkeys("/m " & TextBox1.Text & " " & ":" & _
                      TextBox2.Text & "{ENTER}")
                    For t As Integer = 1 To TextBox3.Text * 10
                        System.Threading.Thread.Sleep(100) '50 * 0.1 sek warten
                        Application.DoEvents()
                        If Abbruch Then Exit Do
                    Next
                    bot.sendkeys("/m " & TextBox1.Text & " " & ":" & _
                      TextBox4.Text & "{ENTER}")
                    For t As Integer = 1 To TextBox3.Text * 10
                        System.Threading.Thread.Sleep(100) '50 * 0.1 sek warten
                        Application.DoEvents()
                        If Abbruch Then Exit Do
                    Next
                End If
            Loop
        End If
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Abbruch = True
    End Sub
End Class