Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim Msg1 As String
Dim BoxWert As Integer
 
 Msg1 = "Wollen Sie das Programm wirklich beenden ?"
 
 BoxWert = MsgBox(Msg1, vbYesNo + vbExclamation, "Beenden")
 
 If BoxWert = vbNo Then Cancel = True
End Sub