Fijate en el evento QueryUnload de los formularios. Este evento es llamado antes de cerrarse el form.
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("Desea cerrar la aplicación?", 305, "Cerrar")) = vbCancel Then
Cancel = True
End If
End Sub