Private Sub cmdAbort_Click()
  cmdAbort.Tag = "Abort"
End Sub
 
Private Sub DoEncrypt()
  ' Flag zurücksetzen
  cmdAbort.Tag = ""
 
  ' Schleife
  Do
    ...
    ' Abfragen, ob auf Abbrechen geklickt wurde
    DoEvents
    If cmdAbort.Tag = "Abort" Then Exit Do
 
  Loop
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de