How to use command button

[Hack]

Option Explicit
Private StopIt As Boolean
 
Private Sub cmdCancel_Click()
StopIt = True
End Sub
 
Private Sub cmdDoTheLoop_Click()
    Dim i As Long
      For i = 1 to 1000000
            'do your loop
            DoEvents
            If StopIt = True Then Exit For
      Next
End Sub