[Resolvido]API WhatsApp

Pessoal,
Estou com esta API ele funciona super bem, porém uma parte do código que citarei abaixo:

Sub Enviar()

Dim textEnviar, Contatcs As String

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

textEnviar = Replace("OLÁ, ISSO É UM TESTE", "", "%20")

'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 = "5511981782382"

'abre o navegador e cria a mensagem

Application.FollowHyperlink "https://api.whatsapp.com/send?phone=" & Contatcs & "&text=" & textEnviar


A PARTIR DESTA PARTE NÃO FUNCIONA MAIS, PORQUE O API ABRE UMA TELA ONDE TENHO QUE CLICAR TAB DUAS VEZES E ENTER DUAS VEZES, SÓ QUE ESSE CÓDIGO NÃO FUNCIONA NA TELA DO API ELE EXECUTA A FUNÇÃO DENTRO DA TELA DO VBA SÓ.


'pause de 3 segundos

'Fazer (3)

'tab e dois enter para enviar

Call SendKeys("{TAB}", True)
Call SendKeys("{TAB}", True)
Call SendKeys("{ENTER}", True)
Call SendKeys("{ENTER}", True)

End Sub

Vocês conseguem me ajudar?

Resolvido.

Ola como resolveu ai , pode nos passar a solucao ?