Io userei:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim x%
x% = MsgBox("Sei sicuro di voler uscire dal programma?", vbYesNo)
If x% = vbNo Then
Cancel = True
Else
Cancel = False
End If
End Sub

Se ho capito bene quello che chiedevi.