<code>Option Explicit
Dim Abbruch As Boolean
 
Private Sub cmdAbbrechen_Click()
  Abbruch = True
End Sub
 
Private Sub bla()
  Do While Not text <> "" or Abbruch
    text = Clipboard.GetText 
    DoEvents 
  Loop 
End Sub</code>