Private Sub Form_Unload(Cancel As Integer)
 
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  ' Abfrage ob Schließsymbol geklickt wurde
  If UnloadMode = vbFormControlMenu Then
    Dim iResult As Integer
    iResult = MsgBox("Programm wirklich beenden", vbYesNo + vbQuestion, _
      "Programm beenden")
    If iResult = vbNo Then  ' Nein geklickt
      Cancel = 1
      ' Zurück zum Programm
      Exit Sub
    End If
  End If
 
  ' Programm normal beenden
  ' und alle relevanten Einstellungen sichern
  '-------------------------------------------------------
  ' Hier alle Befehle aus der Sub Form_Unload reinschieben
  '-------------------------------------------------------
  ....
 
  ....
  '--------------------------------------------
  ' Alle Forms schließen und Speicher freigeben
  '--------------------------------------------
  Dim frm As Form
  For Each frm In Forms
    Unload frm
    Set frm = Nothing
  Next
  End
End Sub

LG
Plumber44