Option Explicit
 
' Eine Boolsche Variable, die angibt das die Schleife verlassen werden soll.
Dim bStop       As Boolean
 
Private Sub cmdStart_Click()
  bStop = False
  Call Machirgendwas
End Sub
 
Private Sub cmdStop_Click()
  ' Wenn gedrückt, dann bStop auf True setzten
  bStop = True
End Sub
 
Public Sub Machirgendwas()
  Do
    Debug.Print "Ich mache was!"
    ' Damit Benutzeraktionen verarbeitet werden
    ' können ein DoEvents
    DoEvents
    ' Wenn Stop gedrückt wurde die Schleife verlassen.
    If bStop Then Exit Do
    'Bei For Next Schleifen Exit For verwenden!
    'If bStop Then Exit For
  Loop
End Sub