Zitat:

das ist genau das Vorgehen, welches ich auch implementiert habe.

Zitat:

SetFocus auf den Abbruch-Button SendKeys "ENTER" Über den Abbruch-Button werden dann die entsprechenden Subs aufgerufen.

Private Sub Command1_Click()
    Abbrechen
End Sub
 
Private Sub Abbrechen()
    ' Hier steht der Code für den Abbruch....
    MsgBox "Sub Abbrechen wurde aufgerufen)"
End Sub

Private Sub Irgendwas()
    ' Programmcode
    If Abbruchbedingung = True Then
        Abbrechen
    Else
        ' Programmcode
    End If
End Sub