cmdAbort.Tag = ""
 
For x = 1 To n
  ...
  ' Abbruch-Button prüfen
  DoEvents
  If cmdAbort.Tag <> "" Then Exit For
Next c

Private Sub cmdAbort_Click()
  cmdAbort.Tag = "Cancel"
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de