Сохранить html код через VBA

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

Не получается через vba сохранить html код после обработке на сервере.
Подскажите.

Решение задачи: «Сохранить html код через VBA»

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

                            ie.Navigate (<font color="teal">"http://www.pecom.ru/ru/calculator/?type=4"</font>)
    
    varReturn = SysCmd(acSysCmdInitMeter, <font color="teal">"Entering to pecom.Ru ..."</font>, <font color="darkblue"><b>100</b></font>)
<font color="blue">While</font> CBool(ie.Busy)
        i = i + <font color="darkblue"><b>1</b></font>
        varReturn = SysCmd(acSysCmdUpdateMeter, Int(i / <font color="darkblue"><b>30000</b></font> * <font color="darkblue"><b>100</b></font>))
        <font color="blue">If</font> i > <font color="darkblue"><b>29999</b></font> <font color="blue">Then</font>
           varReturn = SysCmd(acSysCmdClearStatus)
           <font color="blue">Beep</font>
           MsgBox <font color="teal">"Something is wrong. pecom.Ru is not accessible"</font>, vbCritical, <font color="teal">"pecom.Ru"</font>
           ie.Quit
           <font color="blue">Set</font> ie = <font color="blue">Nothing</font>
           <font color="blue">Exit</font> <font color="blue">Function</font>
        <font color="blue">End</font> <font color="blue">If</font>
DoEvents
<font color="blue">Wend</font>
                        