Програмно заставить VBA рассылать SMS через мобильный телефон

Sub test()
    NavStr = "https://my.kyivstar.ua/tbmb/login/show.do"
    IE.Navigate NavStr
    While IE.busy Or (IE.readyState <> 4): DoEvents: Wend
 
    Set ieDoc = IE.Document
    If ieDoc.Title Like "Ошибка сертификата*" Or ieDoc.Title Like "Certificate Error*" Then
        ieDoc.Links(1).Click
        While IE.busy Or (IE.readyState <> 4): DoEvents: Wend
        Set ieDoc = IE.Document
    End If
 
    With ieDoc
        .all("user").Value = "СюдаПишемЛогин"
        .all("password").Value = "СюдаПишемПароль"
        .all("Submit").Click
        For i = 1 To 1000: DoEvents: Next
        While IE.busy Or (IE.readyState <> 4): DoEvents: Wend
    End With
    
    NavStr = "https://my.kyivstar.ua/tbmb/addressbook/pab-send-sms.do"
    IE.Navigate NavStr
    
    For i = 1 To 20000: DoEvents: Next
    While IE.busy Or (IE.readyState <> 4): DoEvents: Wend
 
    Set ieDoc = IE.Document
    With ieDoc.forms(2)
        .all(9).Value = "+79125846578"
        .all(16).Value = "Проверка отправки СМС при помощи макроса"
        For i = 1 To 1000: DoEvents: Next
        .all(32).Click
    End With
End Sub