Отправка и получение ответа XML - VBA

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

Здравствуйте. Я в VBA не очень (учусь) и с такими задачами еще не сталкивался, - руководство поставило задачу сделать макрос проверки параметров сайта в Excel на основании API c сервиса recipdonor.com (пытаюсь сделать такой запрос: Проверка тИЦ). 3-й день уже гуглю и читаю форумы, вроде все более-менее понятно, но у меня никак не получается отправить запрос.. я уже молчу чтобы получить ответ..(( Подскажите пож-та, что я делаю не так.

Sub Zapros()
Set HTTP = CreateObject("MSXML2.XMLHTTP")
apiBase64 = "Basic MjQzM2EWRUIHERUIiueUIEiirfhpdowNjE2ZTIxMzg2Ong="   'ключ АПИ в Base64 - здесь тестовый
sURL1 = "http//recipdonor.com/api/session/new HTTP/1.1"
sql1 = "<InitSession><Parameters><TaskVariant>Cy</TaskVariant></Parameters><DomainNames><string>mozilla.com</string></DomainNames><Refresh>true</Refresh></InitSession>"
HTTP.Open "GET", sURL1, False
HTTP.SetRequestHeader "Host", "recipdonor.com:977"
HTTP.SetRequestHeader "Content-type", "text/xml; charset=utf-8"
HTTP.SetRequestHeader "Authorization", apiBase64
HTTP.SetRequestHeader "Content-Length", Len(sql1)
HTTP.send sql1
otvet = HTTP.responseText
[A1].Value = otvet
End Sub

На 6-й строке ругается Runtime Error -2147012890 (80072 ee6); Automation error. Буду премного благодарен за помощь. Спасибо.

Решение задачи: «Отправка и получение ответа XML»

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

                            <response list="true">
<user>
<id>1</id>
<first_name>Павел</first_name>
<last_name>Дуров</last_name>
<online>0</online>
<last_seen>
<time>1398447188</time>
<platform>7</platform>
</last_seen>
</user>
</response>
                        