VBA: MSXML2.XMLHTTP: множественные запросы

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

Здравствуйте, уважаемые. Написал макрос в Excel, который отправляет данные на страницу сайта методом POST:

XMLHTTP  MSXML2.XMLHTTP,   , flag  
 XMLHTTP =  MSXML2.XMLHTTP
 = : flag = True

    XMLHTTP. , , True
    XMLHTTP.SetRequestHeader , 
    XMLHTTP.SetRequestHeader , 
    XMLHTTP.SetRequestHeader , 
    XMLHTTP.SetRequestHeader , 
    XMLHTTP.SetRequestHeader , 
    zapros = 
    
    XMLHTTP.SetRequestHeader , CStr(Len(zapros))
    XMLHTTP.send zapros
      XMLHTTP.readyState <> 
         DoEvents
    
     =  + 
      >   flag = False
  flag = False
XMLHTTP.abort
 XMLHTTP = 

С запросами HTTP работаю первый раз, поэтому данный код предоставляю на "суд" - что лишнее в данном кода, что отсутствует, как можно оптимизировать и т.п.?. Передача данных осуществляется "крайне" долго, по сравнению с браузером. Конкретные вопросы отсутствуют, надеюсь, что при обсуждении появятся. Спасибо.

Решение задачи: «VBA: MSXML2.XMLHTTP: множественные запросы»

textual
                            Листинг программы 
                        
                            <font color="blue">Do</font> <font color="blue">While</font> XMLHTTP.readyState <> <font color="darkblue"><b>4</b></font>
         DoEvents
<font color="blue">Loop</font>