<code>Private Sub cmdCancel_Click()
  <font color=green>' Schaltfläche ABBRECHEN</font>
  cmdCancel.Tag = "Exit"
End Sub
 
LIES:
Do While Datei.AtEndofstream <> True 
  InByte=Datei.Read(1) 
  If InByte="*" then Goto MachWas 
 
  <font color=green>' Auf Abbruch prüfen</font>
  DoEvents
  If cmdCancel.Tag = "Exit" Then Exit Do
 
  MachWas: 
  ..... 
Loop</code>