Debugging AutoSpammer

[Joker13x]

Ok i have an autospammer, and it doesnt wanna do what i want it to do. it either continues to send, or it freakin shows the message box continuosly...

MsgBox("You have approx 2.5 seconds till we start spamming. HURRY!")
        Wait(2500, 100)
        Dim i As Integer
        Dim y As Integer
        Dim n As Integer
        Dim txt As String
        Dim x As Integer
        txt = TextBox1.Text
        n = Int(TextBox2.Text)
        x = Int(TextBox3.Text)
        While y <= n
            i = i + 1
            System.Windows.Forms.SendKeys.Send(txt)
            Wait(500, 100)
            System.Windows.Forms.SendKeys.Send(Chr(13))
            Wait(x, 250)
        End While
    End Sub