[Resolvido]Função para perguntar se deseja mesmo sair do Formulário

Companheiros.
Tenho uma função que pergunta se realmente deseja sair do formulário ou não.
A questão é a seguinte: Como eu faço para colocar essa função em uma raiz do meu sistema, para que eu possa aproveitá-la em vários botões sair, ou seja, para que eu não precise repetí--la por várias vezes em cada formulário do sistema.

A função é:

---------------------------------------------------------

Dim msg, Style, Title, Help, Ctxt, Response, MyString

msg = "Você realmente deseja sair?"
' Style = vbYesNo + vbCritical + vbDefaultButton2
Style = vbYesNo + vbQuestion + vbDefaultButton2
Title = "Confirmação!"
Help = "DEMO.HLP"
Ctxt = 1000

Response = MsgBox(msg, Style, Title, Help, Ctxt)

If Response = vbYes Then ' User chose Yes (Se a resposta for SIM).
MyString = "Yes" ' Perform some action.
DoCmd.Close ' Fecha o formulário.
Else ' User chose No (Se a resposta for NÃO).
MyString = "No" ' Perform some action.
End If

---------------------------------------------------------

Teste


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)


If KeyCode = vbKeyEscape Then
If MsgBox("Sair da Formulário xxxxx ? ", vbYesNo + vbQuestion, "Aviso") = vbYes Then
DoCmd.Close
Else
DoCmd.CancelEvent
Exit Sub
End If
End sub

É uma Função ou Procedure?
Onde eu coloco, em algum Formulário Principal?
Dá para utilizá-la em vários formulários fazendo a chamada por ela?
Como fazer essa chamada?
Desculpe-me pelas perguntas, é que eu estou perdido mesmo.
Abrçs.

Aqui

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Olá Assis.
Mas em qual parte do Formulário ou do programa eu tenho que colocar esse Comando?
Desculpe-me, é que sou novato em Access, e ainda estou arprendendo, pois o ambiente é um pouco diferente do Delphi.

Olá Kaynan,
É justamente o que eu desejo evitar, colocar todo o comando que informei acima, nos botões de fechar de todos os Formulários.
Gostaria de saber se haveria uma forma de fazer uma função com valores públicos para que eu pudesse usá-la sem ter que repetir todas essas linhas.
Abrçs.

veja este link:

http://maximoaccess.forumeiros.com/t10670-resolvidochamar-funcao

ou então pesquise no fórum por função pública.

Obrigado pelas respostas companheiros,
É que realmente eu não estava entendendo por ser bem novato no ACCESS, porém consegui achar onde criar Módulo para declarar Pública todas as Funções e Variáveis para todos os Formulários.
Abrçs.