Option Explicit
Dim bContinue As Boolean

For ...
  ...
  ' hier die Paise
  bContinue = False
  Do
    DoEvents
  Loop Until bContinue
 
  ...
Next

Private Sub Command1_Click()
  bContinue = True
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de