Private Sub start_Click()
stopp = True
Do Until stopp = False
If stopp = False Then Exit Do
DoEvents
EventPause ("5")
If stopp = False Then Exit Do
SendKeys ("message")
EventPause ("1")
If stopp = False Then Exit Do
SendKeys ("message1")
EventPause ("1")
If stopp = False Then Exit Do
SendKeys ("message2")
EventPause ("1")
If stopp = False Then Exit Do
SendKeys ("message3")
EventPause ("1")
If stopp = False Then Exit Do
SendKeys ("message4")
EventPause ("1")
If stopp = False Then Exit Do
SendKeys ("message5")
EventPause ("1")
If stopp = False Then Exit Do
SendKeys ("message6")
EventPause ("1")
If stopp = False Then Exit Do
SendKeys ("message7")
EventPause ("1")
If stopp = False Then Exit Do
SendKeys ("message8")
EventPause ("1")
If stopp = False Then Exit Do
SendKeys ("message9")
EventPause ("1")
If stopp = False Then Exit Do
SendKeys ("message10")
EventPause ("1")
If stopp = False Then Exit Do
SendKeys ("message11")
EventPause ("1")
If stopp = False Then Exit Do
DoEvents
Loop
End Sub