[Resolvido]Botoes personalizados com 3 opções

Boa tarde,
* Uso Access 2003

Fiz buscas no site e encontrei 3 tópicos relacionados ao assunto pretendido, mas não consegui fazer funcionar:

CRIQUIO
https://www.maximoaccess.com/t2390p4-msgboxex-personalizada-com-seu-icone-texto-dos-botoes-permitindo-icoes-e-gif-s
------------------------------------------------------------------------------------------------------------------
CRIQUIO
https://www.maximoaccess.com/t3326-msgbox-com-texto-dos-botoes-personalizados
-------------------------------------------------------------------------------------------------------------------
WEBBRUXIM
https://www.maximoaccess.com/t30900-msgbox-personalizadas-texto-e-botoes

O mais próximo que consegui chegar foi com outro tópico que adaptei para mim:
https://www.maximoaccess.com/t18666-resolvidocaixa-mensagem-interativa

Conforme rotina abaixo:

Private Sub MenuRestituicao_Click() 'Rotina incluída em 16/08/2019
'FONTE: https://www.maximoaccess.com/t18666-resolvidocaixa-mensagem-interativa
'Autor: Mylton - Participantes: Convidado e Cláudio Machado

Dim Msg As String
Msg = MsgBox("Escolha a Opção abaixo: " & vbCrLf & "SIM : Pessoa Física" & vbCrLf & "NÃO: Pessoa Jurídica" & vbCrLf & "Ou Cancelar", vbYesNoCancel + vbInformation, "Sistema")
Beep
If Msg = vbNo Then         'Ação para o NÃO
  DoCmd.OpenForm "F13_OperacaoXTermoRestituicaoPJ"
ElseIf Msg = vbYes Then    'Ação para o SIM
  DoCmd.OpenForm "F13_OperacaoXTermoRestituicaoPF"
ElseIf Msg = vbCancel Then 'Ação para o CANCELAR
End If
End Sub

O que pretendo é: Numa MsgBox colocar 3 opções: 1: Pessoa Física - 2: Pessoa Jurídica - 3: Cancelar ==> As 2 primeiras abre determinado formulário e a 3ª fecha a rotina
Mas, ao executar aparece os botões (Padrão) como 'Sim' - 'Não' - 'Cancelar'

Tenta esse...
Mensagem Personalizada.
https://www.maximoaccess.com/t15542-resolvidomensagem-personalizada

Bom dia, Mylton

Valeu, consegui resolver.
Obrigado.