Metti tutta la logica nella QueryUnload :

codice:
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
 If MsgBox("uscire", vbYesNo) = vbYes Then
     End
 Else
     Cancel = 1
 End If

End Sub
Ciao,