Отправка массива через POST-запрос - VB

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

Не могу разобраться, как отправить массив через POST-запрос.
Строковые данные отправляются нормально, а массив - нет (сервер возвращает ошибку).
Прежде чем писать в техподдержку сервиса, хотел бы уточнить, может это я что-то не так делаю?
Имеется пример, но не знаю как его правильно перевести на VB:

ACTION=ADD_PERSON
contact = Array(
  'person_name'          => 'Фамилия Имя',
  'person_position'      => 'Должность',
  'person_company_name'  => 'Компания',
  'person_company_id'    => 'ID компании, если известно',
  'contact_data'         => Array (
    'phone_numbers' => Array (
      0 => Array ('number'    => '+7 495 123-45-67'),
      1 => Array ('location'  => 'Work'),
      2 => Array ('number'    => '+7 499 891-01-11'),
      3 => Array ('location'  => 'Mobile')
    ),
    'email_addresses' => Array (
      0 => Array('address'   => 'removed@mail.ru'),
      1 => Array('location'  => 'Work')
    ),
    'web_addresses' => Array(
      0 => Array('url' => 'http://www.amocrm.ru')
    ),
    'addresses' => Array(
      'street' => 'Адрес'
    ),
    'instant_messengers' => Array(
      0 => Array('address'   => 'imaddr'),
      1 => Array('protocol'  => 'Skype')
    )
  ),
  'main_user_id'    => 'ID ответственного пользователя',
  'tags'            => 'тег, тег2, тег3'
)

Источник: http://www.amocrm.ru/add-ons/api.php
Я решил сделать вот так:

Dim oXMLHTTP As Object
Dim Param as string
Dim adress as string

Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
adress = "https://company.amocrm.ru/private/api/contact_add.php"

oXMLHTTP.Open "POST", adress, False
oXMLHTTP.setRequestHeader "Content-type", "application/x-www-form-urlencoded"

Param = "XML=" & _
"ADD_PERSON" & _
"" & _
    "Новый контакт" & _
    "" & _
        "" & _
            "1234567890" & _
            "Work" & _
        "" & _
    "" & _
    "94780" & _
    "NewCall" & _
""

oXMLHTTP.send (Param)

Прбовал ещё и так:

param = _
"ACTION=ADD_PERSON" & _
"contact[person_name]=Новый контакт" '& _
"contact_data [phone_numbers[number]]=1234567890" & _
"contact_data [phone_numbers[location]]=Work" & _
"main_user_id=94780" & _
"tags=NewCall"

Ничего не выходит. Сервер возвращает ошибку:


	false

Решение задачи: «Отправка массива через POST-запрос»

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

                            REM псевдокод

rem **** не уверен в необходимости точки-с-запятой после описания не последненго вложенного массива

PHONE_NUMBERS=s:12:"phone_numbers";a:4{
i:0;a:1{s:6:"number";s:16:"+7 495 123-45-67"}; '<-- ****
i:1;a:1{s:8:"location";s:4:"Work"}; '<-- ****
i:2;a:1{s:6:"number";s:16:"+7 499 891-01-11"}; '<-- ****
i:3;a:1{s:8:"location";s:6:"Mobile"}
}

EMAIL_ADDRESSES=s:15:"email_addresses";a:2{
i:0;a:1{s:7:"address";s:13:"maks@qsoft.ru"}; '<-- ****
i:1;a:1{s:8:"location";s:4:"Work"}
}

...

CONTACT_DATA=a:5:{
PHONE_NUMBERS;  '<-- ****
EMAIL_ADDRESSES;  '<-- ****
WEB_ADDRESSES;  '<-- ****
ADDRESSES;  '<-- ****
INSTANT_MESSENGERS
}

contact=a:7{
s:11:"person_name";s:21:"Фамилия Имя";
s:15:"person_position";s:18:"Должность";
...;
s:12:"contact_data";CONTACT_DATA;  '<-- ****
s:12:"main_user_id";s:HZ:"ID ответственного пользователя";
s:4:"tags";s:22:"comma, separated, tags"
}

contact = url_encode ( contact )


params = "ACTION=ADD_PERSON&contact=" & contact

oXMLHTTP.send ( Param )

                        