Botão Sair com vbYesNo

Boa tarde!
Sou novo por aqui e iniciante em programação. Estou tentando criar um sistema para controle de atendimentos em fisioterapia.
Quero configurar um botão de fechar o sistema, com uma MsgBox vbYesNo. O código que criei está dando erro de compilação ('Sub' ou 'Function' não definida).
Alguém poderia me auxiliar com isso, por favor?

Eis o código que escrevi:

Option Compare Database


Public Sub BtnSair_Click()

Dim SqlQuit As String

   SqlQuit = MsgBox("O FisioAccess será encerrado." & Chr(13) & "Você confirma?", vbYesNo + vbQuestion, "FisioAccess")
   
   If SqlQuit = vbYes Then
   DoCmd.Quit acQuitSaveAll
   Else
   Cancel
   End If
   
End Sub

Desde já agradeço.
Feliz Ano Novo à todos.

Antes de tudo: bem vindo!

O "Cancel" só existe em alguns eventos que JÁ foram disparados/iniciados, como, por exemplo, o evento "Ao abrir". No seu caso, o fechamento do sistema não começou, primeiro foi perguntado se deveria mesmo fechar.

Dito isto, retirei o "Cancel", afinal, não há o que ser cancelado.

Não esqueça de encerrar o tópico.

Código:

Option Compare Database


Public Sub BtnSair_Click()

   Dim SqlQuit As Integer

   SqlQuit = MsgBox("O FisioAccess será encerrado." & Chr(13) & "Você confirma?", vbYesNo + vbQuestion, "FisioAccess")
  
   If SqlQuit = vbYes Then
      DoCmd.Quit acQuitSaveAll
   End If
  
End Sub

Muito obrigado!
Ficou ótimo!

Você esqueceu de encerrar o tópico.

Veja no link abaixo como fazer
https://www.maximoaccess.com/t860-resolucao-de-topicos#5263

Aguardamos sua ação.