Eviar mensagem pra Grupo de Wastzapp

Bom dia a Todos
como que mando mensagem pra Grupo de WhastZapp via esse codigo

Código:

Public Function EnviarX()
Dim textEnviar, Contatcs  As String
Contatcs = "XXXX"
textEnviar = "Deposito 21-05 sabado 18.612,00"
If Contatcs = "" Then
    MsgBox "Informe o Endereço da Coleta!!", vbInformation, "ERROR"
    Exit Function
Else
  'Contatcs = "55" & Me.celularwhatsapp
    Application.FollowHyperlink "https://api.whatsapp.com/send?phone=" & Contatcs & "&text=" & textEnviar & Source & Data & app_absent
        Call SendKeys("{TAB}", True)
        Call SendKeys("{BS 1000}", True)
        Call SendKeys("~", True)

End If
End Function

Vc tem que fazer um laço de repetição com a função dentro declarando as variaceis porem tem que saber de onde esta vindo os numeros mais nao sei se vc vai consegui tem que sincronizar bem o tempo e ao final de cada repeticao coloca um sleep  para o codigo espera o termino do envio da mensagem para enviar outra mensagem o sleep e definido em milésimo se nao me engano 1000 e um segundo sleep (1000). ja usei essa forma sua porem chegou uma hora que nao envio mais tem a ver com bloqueio do whatsapp
mais vamos la supondo que vc tem uma tabela chamada contatos e nela tem nome e numero
Private Sub BTENVIAR_Click()
On Error Resume Next

Dim sSQL As String
Dim rst As DAO.Recordset
Dim Rst1 As DAO.Recordset
Dim nReg As Long
Dim nReg1 As Long

nReg1 = 1

sSQL = ""
sSQL = "Select * from contatos"    ' abra e lê tabela
Set rst = CurrentDb.OpenRecordset(sSQL)    'abre o recordeset
rst.MoveLast
nReg = rst.RecordCount
rst.MoveFirst
While (Not rst.EOF)


call EnviarX(rst("numero ").Value)

Sleep 3000

nReg1 = nReg1 + 1
rst.MoveNext    'vai para o proximo registro

Wend
rst.Close    'fecha o recorset
MsgBox "Mensagem(s) Enviada(s) com Sucesso!!!", vbInformation, "ENVIAR MENSAGEM"
End Sub



Public Function EnviarX(p_numero)
Dim textEnviar, Contatcs   As String
textEnviar = me.txtmensagem 'campo onde vai ser digitada a mensagem'
If p_numero= "" Then
   MsgBox "Informe o Endereço da Coleta!!", vbInformation, "ERROR"
   Exit Function
Else
  'Contatcs = "55" & Me.celularwhatsapp
   Application.FollowHyperlink "https://api.whatsapp.com/send?phone=" & p_numero& "&text=" & textEnviar & Source & Data & app_absent
       Call SendKeys("{TAB}", True)
       Call SendKeys("{BS 1000}", True)
       Call SendKeys("~", True)

End If
End Function


Mais ou menos isso ai o loop chama a função e jogo o numero do telefone pra função e a mensagem vc coloca um campo no formulario para poder digita ela mais qualquer coisa posta parte do projeto onde tenha esse formulario.