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