Получение кода html в IE - VB

<font color="blue">Option</font> <font color="blue">Explicit</font>
<font color="blue">Public</font> <font color="blue">Declare</font> <font color="blue">Function</font> URLDownloadToFile Lib <font color="teal">"urlmon"</font> Alias <font color="teal">"URLDownloadToFileA"</font> _
(<font color="blue">ByVal</font> pCaller <font color="blue">As</font> <font color="blue">Long</font>, <font color="blue">ByVal</font> szURL <font color="blue">As</font> <font color="blue">String</font>, <font color="blue">ByVal</font> szFileName <font color="blue">As</font> <font color="blue">String</font>, _
<font color="blue">ByVal</font> dwReserved <font color="blue">As</font> <font color="blue">Long</font>, <font color="blue">ByVal</font> lpfnCB <font color="blue">As</font> <font color="blue">Long</font>) <font color="blue">As</font> <font color="blue">Long</font>

<font color="00AA00">'Загрузка интернет-страницы</font>
<font color="blue">Public</font> <font color="blue">Function</font> DownloadFile(URL <font color="blue">As</font> <font color="blue">String</font>, LocalFilename <font color="blue">As</font> <font color="blue">String</font>) <font color="blue">As</font> <font color="blue">Boolean</font>
    <font color="blue">Dim</font> lngRetVal <font color="blue">As</font> <font color="blue">Long</font>
    lngRetVal = URLDownloadToFile(<font color="darkblue"><b>0</b></font>, URL, LocalFilename, <font color="darkblue"><b>0</b></font>, <font color="darkblue"><b>0</b></font>)
    <font color="blue">If</font> lngRetVal = <font color="darkblue"><b>0</b></font> <font color="blue">Then</font> DownloadFile = True
<font color="blue">End</font> <font color="blue">Function</font>

<font color="blue">Sub</font> TakeHtml(strWEB <font color="blue">As</font> <font color="blue">String</font>)
    <font color="blue">Dim</font> i <font color="blue">As</font> <font color="blue">Long</font>
    <font color="blue">Dim</font> strHtml <font color="blue">As</font> <font color="blue">String</font>
    <font color="blue">Dim</font> Massiv() <font color="blue">As</font> <font color="blue">String</font>
    <font color="blue">Dim</font> strPut <font color="blue">As</font> <font color="blue">String</font>
    
    strPut = ThisWorkbook.Path & <font color="teal">"\"</font> & <font color="teal">"Help.htm"</font>
    <font color="00AA00">'сохранение веб-страницы на локальном компьютере</font>
    DownloadFile strWEB, strPut

    <font color="00AA00">'перенос данных из сохраненного файла в переменную string</font>
    <font color="blue">Open</font> strPut <font color="blue">For</font> <font color="blue">Input</font> <font color="blue">As</font> #<font color="darkblue"><b>1</b></font>
    <font color="blue">Do</font> <font color="blue">Until</font> EOF(<font color="darkblue"><b>1</b></font>)
        DoEvents
        i = i + <font color="darkblue"><b>1</b></font>
        <font color="blue">ReDim</font> Preserve Massiv(<font color="darkblue"><b>1</b></font> <font color="blue">To</font> i)
        <font color="blue">Line</font> <font color="blue">Input</font> #<font color="darkblue"><b>1</b></font>, Massiv(i)
    <font color="blue">Loop</font>
    <font color="blue">Close</font> #<font color="darkblue"><b>1</b></font>
    <font color="blue">Kill</font> strPut
    strHtml = Join(Massiv(), vbCrLf)
     MsgBox strHtml
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Sub</font> LoadURL(strWEB)
    <font color="blue">Dim</font> ieApp <font color="blue">As</font> <font color="blue">Object</font>
    <font color="blue">Dim</font> strHtml <font color="blue">As</font> <font color="blue">String</font>
    
    <font color="00AA00">'Create new IE instance</font>
    <font color="blue">Set</font> ieApp = CreateObject(<font color="teal">"InternetExplorer.Application"</font>)
    <font color="00AA00">'Go to url</font>
    ieApp.Visible = False
    ieApp.navigate strWEB
    <font color="00AA00">'Wait for page to load</font>
    <font color="blue">Do</font> <font color="blue">Until</font> ieApp.readyState = <font color="darkblue"><b>4</b></font>
        DoEvents
    <font color="blue">Loop</font>
    <font color="00AA00">'HTML to string</font>
    strHtml = ieApp.document.body.outerhtml
    
    MsgBox strHtml
    ieApp.Quit
    <font color="blue">Set</font> ieApp = <font color="blue">Nothing</font>
<font color="blue">End</font> <font color="blue">Sub</font>
<font color="blue">Sub</font> dgsghd()
     LoadURL (<font color="teal">"http://www.google.ru/"</font>)
     TakeHtml (<font color="teal">"http://www.google.ru/"</font>)
<font color="blue">End</font> <font color="blue">Sub</font>