[VB.NET] كيف اوقف تفيذ امر هذا الكود

كود :

 Private Sub LogInButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LogInButton2.Click

        If (Me.TextBox1.Text = "") Then

            Interaction.MsgBox("Please put identifiers" & ChrW(10) & "الرجاء وضع نكات في القائمة المخصصة", MsgBoxStyle.Critical, "خطأ/" & ChrW(10) & "Error")

        Else

            Dim num As Integer = (Enumerable.Count(Of String)(Me.TextBox1.Lines) - 1)

            Dim i As Integer = 0

            Do While (i <= num)

                Me.ProgressBar1.Value = CInt(Math.Round(Conversion.Int(CDbl((CDbl((i * 100)) / CDbl(Enumerable.Count(Of String)(Me.TextBox1.Lines)))))))

                Form1.emad.Send(String.Concat(New String() {"<iq to='", Form1.room.Text, "@conference.nimbuzz.com' type='set' id='179'><query xmlns='http://jabber.org/protocol/muc#admin'><item affiliation='owner' jid='", Me.TextBox1.Lines(i), "@nimbuzz.com' /></query></iq>"}))

                wait()

                i += 1

            Loop

            Me.ProgressBar1.Value = 100

            Interaction.MsgBox("Everyone has been added" & ChrW(10) & "تم اضافة الجميع", MsgBoxStyle.ApplicationModal, "أنتهى" & ChrW(10) & "finish")

            Me.TextBox1.Text = ""

        End If

    End Sub