' Anwendung korrekt und sauber beenden
Public Sub AppExit(Optional NotToClose As String)
  Dim oForm As Form
  For Each oForm In Forms
    If oForm.Name = NotToClose Then GoTo NextEach
    Unload oForm
    Set oForm = Nothing
NextEach:
  Next
End Sub