Option Explicit

Private isUserEnd As Boolean

Private Sub Command1_Click()
' Einzige Möglichkeit zum Beenden !
    isUserEnd = True
    Unload Me
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If isUserEnd Then
        Cancel = 0
    Else
        Cancel = 1
    End If
End Sub