Abrir arquivo com um botão de comando

Olá, estou com pequeno problema - peço ajuda
Tenho uma pasta chamada DANFE na qual estão guardados dezenas de arquivo PDF. Atualmente o NOME DO ARQUIVO é idêntico ao campo Cod Lanç da minha tabela.
Em um fomulário existe o campo Cod Lanç. Existe um botão comando para abrir o arquivo PDF.
Em propriedades do Botão tenho o comando abaixo. Ao clicar no botão abre o arquivo PDF cujo nome é idêntico ao Cod Lanç
Exemplo: se Cod Lanç = 53136200 o sistema abre o arquivo 53136200.pdf que está dentro de X:\Danfes

Application.FollowHyperlink "X:\Danfes\" & Me![Cod Lanç] & ".pdf"

Ocorre que agora o NOME DO ARQUIVO .pdf conterá 44 caracteres. O Cod do Lanç de minha tabela irá compor este nome do arquivo.
Exemplo: 35150307920692000135550010000496751531362003

Eu não sei alterar o comando acima para que o sistema abra o arquivo.pdf que CONTENHA o Cod Lanç de minha tabela.
Eu tentei com [*Cod Lanç*] mais não dá certo.

`Por favor seria possível reescrever este comando de modo que o sistema abra o arquivo .pdf que contenha o conteudo do meu campo Cod Lanç?

Eu agradeço antecipadamente por sua preciosa ajuda.

Estevam

Boa tarde,

Porque não experimenta com a função Dright (Direita):

Application.FollowHyperlink "X:\Danfes\" & Dright([Cod Lanç], & ".pdf" ' o smile que você visualisa é oito e fechar parentes

Abraço...

Olá roberto
Grato por sua ajuda.
Ao compilar está dando o seguinte erro:
Erro de Compilação
Sub ou Function não definida

em que linha esta dano erro?
Posta aqui o seu código todo.

Abraço...

Ficaria assim Roberto?

Private Sub Comando15_Click()
Application.FollowHyperlink "X:\Danfes\" & Dright([Cod Lanç], & ".pdf"
DoCmd.Close acForm, "Expedição_imprimir_Documentação"
DoCmd.OpenForm "Expedição_imprimir_Documentação", acNormal, "", "", , acNormal
End Sub

o smile que você visualisa é oito e fechar parentes

veja assim:

Private Sub Comando15_Click()
Application.FollowHyperlink "X:\Danfes\" & right([Cod Lanç],Cool & ".pdf"
DoCmd.Close acForm, "Expedição_imprimir_Documentação"
DoCmd.OpenForm "Expedição_imprimir_Documentação", acNormal, "", "", , acNormal
End Sub

Roberto
Muito obrigado.
Deu certinho.
Porém ele está pegando os 8 últimos caracteres do nome do arquivo .pdf
Quase lá.
Este grande número de 44 caracteres é a chave de acesso de Nota Fiscal Eletrônica.
O Cod lanç é realmente os 8 últimos caracteres DESPREZANDO O ÚLTIMO.
Então no Exemplo o Cod Lan é 5153136200 - despezando o número 3 que é o ultimo caractere.
Exemplo: 35150307920692000135550010000496751531362003

Não quero abusar de sua boa vontade. Mas você pode continuar ajudando, por favor?
Muito obrigado
Estevam

experimente assim:

Private Sub Comando15_Click()
Dim qwerty As String
Dim qaz As String
qwerty = Right([Cod Lanç], 9)
qaz = Left(qwerty,
Application.FollowHyperlink "X:\Danfes\" & qaz & ".pdf"
DoCmd.Close acForm, "Expedição_imprimir_Documentação"
DoCmd.OpenForm "Expedição_imprimir_Documentação", acNormal, "", "", , acNormal
End Sub

Abraço...

Boa noite,

Ficou resolvido??