Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  If UnloadMode <> vbAppWindows Then
    If MsgBox(Space(10) & "Programm wirklich beenden?", vbYesNo, App.Title) = _
      vbNo Then Cancel = True: Exit Sub
    ' Registryeinträge sichern
    Call SaveOption
    ' Daten sichern
    Call Abmelden("Beenden")
  End If
  End
End Sub

LG
Plumber44