Create links wa.me (to send whatsapp texts messages)

[Bruno Couto]

Hi. I've got this script on VBA
 

Sub disparo_wpp()
Dim Lin As Integer
Dim Contato As String
Dim Texto As String

Lin = 6

Shell "C:\Program Files\Google\Chrome\Application\chrome.exe" & " https://wa.me/55"

Application.Wait Now + TimeValue("00:00:15")

Do Until Planilha1.Cells(Lin, 2) = ""
    Contato = Planilha1.Cells(Lin, 2)
    Texto = Planilha1.Cells(Lin, 3)
    
    With Application
        .SendKeys "{TAB}"
        .SendKeys "{TAB}"
        .Wait Now + TimeValue("00:00:02")
        .SendKeys Contato
        .Wait Now + TimeValue("00:00:02")
        .SendKeys "~"
        .Wait Now + TimeValue("00:00:02")
        .SendKeys Texto
        .Wait Now + TimeValue("00:00:02")
        .SendKeys "~"
        .SendKeys "{TAB}"
        .SendKeys "{TAB}"
        .SendKeys "{TAB}"
    End With
Lin = Lin + 1
Loop

End Sub


On this srcipt i'm facing on truly challenge: to concate and create a link to send  text messages on Whatsapp.
My question is: how can I concate this string <"https://wa.me/55"> with a colunm where there's all the phones numbers that I wish to contact?