Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode = vbAppWindows Then
        If MsgBox("Shutdown?", vbYesNo, "Confirm") = vbNo Then
            Cancel = 1
        End If
    End If
End Sub

saludos