Отправка SMS (beeline) - VB

Формулировка задачи:

Всем доброго время суток. Столкнулся с проблемой. Нужно "от билайна" организовать рассылку СМС. Через браузер данный функционал я реализовал (если кому интересно обращайтесь). Но "серверно" решить эту задачу у меня пока не получается. Хелп плиз. вот исходник (с мира по нитке)

Private Function SESend_SMS(ByVal sms_username As String, _
                        ByVal sms_password As String, _
                        ByVal sms_from As String, _
                        ByVal sms_to As String, _
                        ByVal sms_msg As String)
                        
On Error GoTo Err_sendSMS

Dim strResult As String
Dim URL_base As String
Dim str_POST As String
Dim XMLHttpRequest As XMLHTTP
Dim XMLDoc As MSXML2.DOMDocument
 
Set XMLHttpRequest = New MSXML2.XMLHTTP
 
URL_base = "https://beeline.amega-inform.ru/sendsms/"
 
str_POST = "user=" & sms_username & _
            "&pass=" & sms_password & _
            "&action=post_sms" & _
            "&message=" & sms_msg & _
            "&target=" & sms_to & _
            "&sender=" & sms_from

Debug.Print str_POST
 
XMLHttpRequest.Open "POST", URL_base, True
XMLHttpRequest.setRequestHeader "Content-Type", "text/xml;charset=windows-1251"
XMLHttpRequest.send ("& str_POST &")
 
MsgBox XMLHttpRequest.responseText
 
Exit_sendSMS:
    Exit Function
 
Err_sendSMS:
    MsgBox "sendSMS - " & Err.Description & " " & Err.Number
    Resume Exit_sendSMS
End Function

Решение задачи: «Отправка SMS (beeline)»

textual
                            Листинг программы 
                        

                            Function SESend_SMS()
 
    Dim sms_username As String
    Dim sms_password As String
    Dim sms_from As String
    Dim sms_to As String
    Dim sms_msg As String
    
    sms_username = "111111" 'ЛОГИН
    sms_password = "111111" 'ПАРОЛЬ
    sms_from = "111111" 'ОТПРАВИТЕЛЬ 
    sms_to = "89999999999 'ПОЛУЧАТЕЛЬ 
    sms_msg = "SESend_SMS " & Now() 'ТЕКСТ СМС
      
    PostData = "user=" & sms_username & _
            "&pass=" & sms_password & _
            "&action=post_sms" & _
            "&message=" & sms_msg & _
            "&target=" & sms_to & _
            "&sender=" & sms_from
            
    openWebsite "POST", "http://beeline.amega-inform.ru/sendsms/", PostData
End Function
 
Public Sub openWebsite(strOpenMethod As String, strURL As String, Optional ByVal strPostData As String)
 
    Dim pXmlHttp As Object
 
    Set pXmlHttp = CreateObject("MSXML2.XMLHTTP")
 
    pXmlHttp.Open strOpenMethod, strURL, False
    pXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    pXmlHttp.send (strPostData)
 
    Dim pHtmlObj As Object
 
    Set pHtmlObj = CreateObject("htmlfile")
    pHtmlObj.body.innerHTML = pXmlHttp.responseText
 
    MsgBox pXmlHttp.responseText
 
End Sub
                        