Dim flag As Boolean
...
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  flag = False
  <hier abzuarbeitende Anweisungen plazieren>
  flag = True
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
  Do While flag = False
    DoEvents
  Loop
End Sub