Sub httpText()
    Dim s As New WinHttp.WinHttpRequest
    Dim ReturnStr As String, FileNumber, url
    
    url = "http://sql.ru/forum/actualpost.aspx?bid=4"
    Debug.Print url
    s.Open "GET", url
    s.Send
    ReturnStr = s.ResponseText
    Debug.Print ReturnStr
End Sub

        <span style="font-weight: bold;">?????µ ??N? ??N??µ??????N???N??°?µN??µ N?N??°????N?N? N??±?µN??µ?¶?µ????N??</span><br />
        <div style="font-style: oblique;">??????N? ??N? ???????µN?N??µN??µ?</div>
        <!-- div>???°??N?N?N????µ: 2011-03-15</div -->

Sub GetInformationFromINet()
    Dim oHttp As Object
    Dim strURL As String
    
    strURL = "здесь необходимо указать адрес сайта, что то вроде http://mail.ru/"
    
    On Error Resume Next
    Set oHttp = CreateObject("MSXML2.XMLHTTP")
    If Err.Number <>  0  Then
        Set oHttp = CreateObject("MSXML.XMLHTTPRequest")
    End If
    On Error GoTo  0 
    If oHttp Is Nothing Then
        MsgBox "Не удалось инициализировать объект MSXML!"
        Exit Sub
    End If
    
    oHttp.Open "GET", strURL, False
    oHttp.Send
    
    Debug.Print oHttp.ResponseText
    Set oHttp = Nothing
    MsgBox "Данные успешно импортированы!", vbInformation
End Sub