Enviar mensaje de whastapp desde acces

Tego esto si logro enviarlo desde access pero me abre el explorador ose el whastapp web quiera abriera el whastapp de escritorio

Private Sub CmdEnviar_Click()

telwhatsapp = Me.Telefonos
textwhatsapp = Me.AsuntoWhast
Call EnviaWhatsapp

End Sub

Sub EnviaWhatsapp()

If IsNull(telwhatsapp) Or IsNull(textwhatsapp) Then
MsgBox ("Debe ingresar número de telefono y texto para enviar Whatsapp"), vbCritical, "AVISO"
Exit Sub
Else
Dim ctl As CommandButton
Set ctl = Me!CmdEnviar
With ctl
' .HyperlinkAddress = "https://api.whatsapp.com/send?phone=" & telwhatsapp & "&text=" & textwhatsapp ' funciona pero me abre el whastapp web
.HyperlinkAddress = ("whatsapp://send?phone=" & telwhatsapp & "&text=" & textwhatsapp) 'aqui deveria abrir el whastapp de escritorio pero no lo hace
End With
Me.Enviada = True
Me.Status = "Enviada"
Me.btnSalvar.Enabled = False
End If