Função WhatsApp não funciona no Access Runtime

Olá pessoal, uso uma função que funciona perfeitamente no Access normal, mas quando é ultilizada no Access runtime da um erro.
Alguém sabe o porque?

Uso essa função:

Código:

Dim Source, app_absent As Variant
Dim textEnviar, Contatcs   As String

'texto ao ser enviado, os espaços são substituidos por %20

textEnviar = Replace("Olá " & cboClienteID.Column(1) & " aqui é da " & txtNomeEmpresa & ". Nosso contato é referente a sua OS Nº: " & txtNrCodigoOSAut, "", "%20")

'verifico se minha caixa de texto esta vazia

If Me.celularwhatsapp = "" Then

    MsgBox "Informe o Endereço da Coleta!!", vbInformation, "ERROR"
    Exit Sub
    
Else

'insiro o nº de celular que deve ser composto por 55 que é o pais + DDD da cidade sem o zero + o nº celular sem traço

    Contatcs = "55" & Me.celularwhatsapp

'abre o navegador e cria a mensagem

  
    Application.FollowHyperlink "https://web.whatsapp.com/send?phone=" & Contatcs & "&text=" & textEnviar & Source & app_absent
End If

Mensagem de erro no Access Runtime:
"A execução desse aplicativo foi interrompida devido ao um erro em tempo de execução"

Bom dia Gilberlanio enteressante que o seu ainda funcione pois eu tive problemas o meu nao funciona mais, pesquisei em todo lugar e descobri que o proprio whatsapp ta bloqueando isso. ai eu tive que adiquiri um modulo da kartoffel que espelha e faz a conexao com o celular nao deu mais problema detalhe e que geralmente pra se enviar mensagem o numero ao qual vc ta enviando deve estar agendado e sincronizado no seu celular pois se nao tem na agenda ele entende que e um robo e bloqueia corre o risco de bloquear ate o chip do celular

Entendi. obrigado pela dica

gilberlanio, adicione uma tratativa de erro no seu código e descubra o ponto exato onde o erro ocorre no código executado na versão runtime.

Usar runtime sem tratamento de erro ficamos sujeito a essa mensagem genérica e ao fechamento repentino do arquivo
"A execução desse aplicativo foi interrompida devido ao um erro em tempo de execução"

Desculpe a demora no retorno. vou fazer