Enviar msg para whatsapp com VBA

olá pessoal!

Gostaria de enviar mensagens para o whatsapp usando meu programa de Agendamentos (em MSACESS). Atraves de pesquisa na NET, adaptei o código abaixo para executar a tarefa, fazendo a leitura de uma tabela, onde obtenho o fone e a mensagem que desejo enviar, mas o problema é que ele só envia a primeira mensagem....após isso ele encontra o proximo fone na lista de contatos mas não envia mais a mensagem....
OBs: estou usando a chamada para o aplicativo original do WhatsAPP......segue o código em anexo.

Obrigado pela atenção!

Olá CGroff!

Normalmente ele corta a mensagem quando o link do whatsapp é gerado com espaço, oriundo da string "msg"
Neste caso, você teria que usar um replace na variável, onde tudo que for espaço, substituir por "%20"

Código: Replace(msg," ","%20")
Trecho enviado para o link: Mensagem%20para%20Whatsapp

myMessage = o texto original da msg
nPhone = telefone no padrao 551199999999

myMessage = Replace(myMessage, " ", "%20", , , vbTextCompare)
CreateObject("Shell.Application").ShellExecute "https://web.whatsapp.com/send?phone=" & nPhone & "&text=" & myMessage