Dim bStop As Boolean
 
Private Sub Command1_Click()
    Dim i As Long
 
    bStop = False
    For i = 0 To 1000000
        Call myAction(i)
        DoEvents
        If bStop Then Exit For
    Next i
End Sub
 
Private Sub myAction(x As Long)
    Debug.Print CStr(x)
End Sub
 
Private Sub Command2_Click()
    bStop = True
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1