Private Sub Command1_Click()
  Command2.Tag = ""
  Call Schleife
End Sub
 
Private Sub Command2_Click()
  Command2.Tag = "Ende"
End Sub
 
Private Sub Schleife()
  Do
    [color=green]' Code 
    DoEvents [color=green]' WICHTIG !!!
  Loop Until Command2.Tag = "Ende"
End Sub

Gruß
Marcus