SMS - Como puedo enviar un MSN a mi celular con VBA

Tengo la siguiente macro, esta compilada con VBA, pero cuando la ejecuto no se envía el mensaje, no funciona.
Ademas comento que tengo VBA 7.1 y Office 2016 y agregue: VBA MSComm32.OCX, Microsoft ActiveX Data Objets 6.1 Library, Microsoft ADO Ext. 6.0 for DDL and Security.:



Dim Cadena As String

Private Sub Conectar_Click()

If MSComm1.PortOpen = False Then

If MSComm1.ListIndex = 0 Then
MSComm1.CommPort = 1

Else
MSComm1.CommPort = 2
End If
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = True
Caption = "Conectado por el puerto " & MSComm1.CommPort
End If

MSComm1.IDPort = 1 ' 1>com1, 2>com2, 3>com3...
MSComm1.TypeSend = CommTextStringMethod
MSComm1.Provider = "OLE DB"
MSComm1.RecipientCountryCode = "56" ' Chile
MSComm1.Recipient = "56999451350" ' Teléfono receptor del mensaje
MSComm1.OutPutToRecipient = "Saludos" ' Mensaje de texto (ojo! hasta 120)
MSComm1.SendRecipient
Do While MSComm1.FullRecipient
DoEvents
Loop
MSComm1.ClearRecipient
MSComm1.CloseProvider
MSComm1.RefreshPort
MSComm1.PortOpen = False


End Sub