Deseja realmente sair? Sim ou Não

Olá amigos ! to quebrando a cabeça ao criar uma macro que barra qualquer a ação de fechar o formulário para aparecer uma janelinha que me pergunte e me dê duas opções  SIM ou NÃO ,  SIM = FECHAR FORMULÁRIO   e NÃO= RETORNA AO FORMULÁRIO

QUEM ME AJUDAR .. EU PAGO UM SORVETE ! rs

Boa tarde Rafael.

Uso vba, ve se interessa.

Deixe o form com o botão fechar desabilitado e crie um botão de comando.

No evento ao Clicar coloque.

Dim X As Integer
X = MsgBox("deseja fechar o formulário?", 20, "Confirmar Saída")
If X = 6 Then
DoCmd.Close
End If

A proposito esqueci de dizer,

Seja bem vindo ao Forúm.

Rafael, recomendo que leia com atenção as regras do fórum antes de postar!

REGRAS DO FÓRUM

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE! Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.

Por favor, corrija seu título!

utilizo essa!

Private Sub btnSair_Click()
On Error GoTo Err_btnSair_Click

If MsgBox("Deseja encerrar o aplicativo?", vbQuestion + vbYesNo, "Sair") = vbYes Then
DoCmd.Quit
Else
Me.txtMatricula.SetFocus
End If
Exit_btnSair_Click:
Exit Sub

Err_btnSair_Click:
MsgBox Err.Description
Resume Exit_btnSair_Click

End Sub