Public Sub GetHtmlPageContent()
    Dim objIE As SHDocVw.InternetExplorer
    Dim objDoc As MSHTML.HTMLDocument

    Set objIE = CreateObject("InternetExplorer.Application")
    
    objIE.Visible = True
    objIE.Navigate "http://www.sql.ru"

    Do While objIE.Busy
    Loop
    
    Set objDoc = objIE.Document

    MsgBox objDoc.body.parentElement.outerHTML

    Set objDoc = Nothing
    Set objIE = Nothing
End Sub

Public Sub GetHtmlPageContent2()
    Dim xml As MSXML2.XMLHTTP
    
    Set xml = CreateObject("Microsoft.XMLHTTP")
    
    xml.Open "GET", "http://www.sql.ru", False
    xml.send
    
    MsgBox xml.responseText
    
    Set xml = Nothing
End Sub

    ' Microsoft Internet Controls.
    Dim objIE As SHDocVw.InternetExplorer

    ' Microsoft HTML Object Library.
    Dim objDoc As MSHTML.HTMLDocument

    ' Microsoft XML.
    Dim xml As MSXML2.XMLHTTP