Private Sub Кнопка0_Click()
Dim strPOST As String
Dim boundary As String
Dim UserName As String
Dim Password As String
Dim XMLHTTP As Object
Dim headers

boundary = "---------------------------7db10b11c0824"
UserName = "12345"
Password = "12345"

' Собираю тело

strPOST = boundary & vbCrLf
strPOST = strPOST & "Content-Disposition: form-data; name=""login""" & vbCrLf & vbCrLf & UserName & vbCrLf
strPOST = strPOST & boundary & vbCrLf
strPOST = strPOST & "Content-Disposition: form-data; name=""password""" & vbCrLf & vbCrLf & Password & vbCrLf
strPOST = strPOST & boundary & vbCrLf
strPOST = strPOST & "Content-Disposition: form-data; name=""clientType""" & vbCrLf & vbCrLf & "bank" & vbCrLf
strPOST = strPOST & boundary & vbCrLf
strPOST = strPOST & "Content-Disposition: form-data; name=""document""" & ";filename=c:\xml\1.xml" & vbCrLf
strPOST = strPOST & "Content-Type :text/xml" & vbCrLf & vbCrLf
strPOST = strPOST & [color=green]???? Здесь не знаю, что писать. Код xml? А как быть с двойными кавычками...? [/color]
strPOST = strPOST & boundary & vbCrLf
strPOST = strPOST & "Content-Disposition: form-data; name=""signature""" & ";filename=c:\xml\1.sig" & vbCrLf
strPOST = strPOST & "Content-Type :application/octet-stream" & vbCrLf & vbCrLf
strPOST = strPOST & ??? Тут куча символов электронной подписи & vbCrLf  
strPOST = strPOST & boundary &"--"& vbCrLf   [color=green]' Нужны ли здесь в конце --[/color]
strPOST = strPOST & "--" & boundary & "--" & vbCrLf


[color=green]'Формирую заголовок[/color]

Set XMLHTTP = CreateObject("MSXML2.Msxml2.XMLHTTP.6.0")
XMLHTTP.Open "POST", "https://zakupki.gov.ru/pgz/services/upload", True
[color=green]' Нужен "User-Agent"? Не просят...[/color]
XMLHTTP.setRequestHeader "Content-Type", "multipart/form-data; boundary=---------------------------7db10b11c0824"
XMLHTTP.setRequestHeader "Content-Length", Len(strPOST)
XMLHTTP.setRequestHeader "Cache-Control", "no-cache"
XMLHTTP.setRequestHeader "Connectiont", "Keep-Alive"


XMLHTTP.send strPOST

  Dim t!
    t = Timer + 10
    Do
      DoEvents
      headers = XMLHTTP.getAllResponseHeaders()
    If Len(headers) Then Exit Do
    Loop While Timer < t
    On Error GoTo 0
    MsgBox headers

Set XMLHTTP = Nothing
End Sub

<?php
$host="test.ru"; // с каким хостом соединяемся
$file_send="a.txt"; // файл который нужно отправить, можно указать абсолютный или относительный путь до файла
$boundary = md5(rand(0,32000)); // создаем разделитель, md5 на основе случайного числа
$filesize = filesize($file_send); // получаем размер пересылаемого файла. если будете пересылать не файл, а текст, то здесь нужно посчитать количество символов текста

// создаем код для отправки двух переменных
$data= "--".$boundary."\r\n"; // разделитель
$data.="Content-Disposition: form-data; name=\"mass[qwe]\"\r\n\r\n"; // имя перемнной
$data.="значение переменной mass[qwe]\r\n"; // значение переменной
$data.="--".$boundary."\r\n"; // разделитель, начало следующего блока данных
$data.="Content-Disposition: form-data; name=\"var\"\r\n\r\n"; // имя следующей переменной
$data.="значение переменной var\r\n"; // ее значение

// создаем заголовки файла
$head_file="--".$boundary."\r\n"; // разделитель
$head_file.="Content-Disposition: form-data; name=\"var_file\"; filename=\"".$file_send."\"\r\n"; // имя переменной с файлом и имя пересылаемого файла
$head_file.="Content-Type: ".mime_content_type($file_send)."\r\n\r\n"; // mime-type файла. данная функция определения типа файла может не работать на многих серверах, поэтому ищите другой способ указания типа файла, можете вручную прописывать тип, например application/octet-stream

// считаем размер данных. размер нужно считать всего, что идет после основных заголовков, вместе с разделителями и всем остальным
// складываем данные с переменными, заголовки файла, размер файла который будет вставлен позже и плюс завершающий разделитель
$contentlength = strlen($data) + strlen($head_file) + $filesize + strlen("--".$boundary."--\r\n");

// теперь создаем основные заголовки, сам запрос
$headers = "POST /test/file.php HTTP/1.0\r\n"; // путь до скрипта, который принимает данные
$headers.="Host: ".$host."\r\n";
$headers.="Referer: ".$host."\r\n";
$headers.="User-Agent: Opera\r\n";
$headers.="Content-type: multipart/form-data, boundary=".$boundary."\r\n"; // тип передаваемых данных и разделитель
$headers.="Content-length: ".$contentlength."\r\n\r\n";  // размер всех данных


if(!$fp = fsockopen($host, 80))  exit; // открываем соединение
fputs($fp, $headers); // посылаем основные заголовки в открытый поток
fputs($fp, $data); // посылаем переменные
fputs($fp, $head_file); // посылаем заголовки файла и ниже отправим сам файл

$fp2 = fopen($file_send, "rb"); // открываем файл, который будет отправлять
while(!feof($fp2)) // начинаем читать этот файл
{
    $as=fgets($fp2, 2048); // читаем кусок файла
    fputs($fp, $as); // посылаем этот кусок файла в открытый поток
}
fclose($fp2); // закрываем файл, который прочитали и отправили в поток

fputs($fp, "\r\n--".$boundary."--\r\n"); // завершаем, отправляем закрывающий разделитель, указывающий на конец даных


// вывод ответа от скрипта
while($gets=fgets($fp,2048))
{
    print $gets;
}

fclose($fp); // закрыли поток.
?>