Sub io()
      Dim newHTML As Object
      Dim newXML As Object
      Dim pageHTML As Object
      Dim pageXML As Object
      Dim pageText As String
      Dim Request As Object
        
      Const url As String = "http://www.excelworld.ru/forum/3-2168-1"
        
      With New HTTP
          '-----------------------------------
          ' Создать новую HTML страницу
          Set newHTML = .newHTML
          '-----------------------------------
          ' Создать новую XML страницу
          Set newXML = .newXML
          '-----------------------------------
          ' Получить содержимое URL в виде HTML страницы
          Set pageHTML = .getHTML(url)
          '-----------------------------------
          ' Получить содержимое URL в виде XML страницы
          Set pageXML = .getXML(url)
          '-----------------------------------
          ' Получить содержимое URL в виде текста
          pageText = .getText(url)
          '-----------------------------------
          ' Создать объект запроса XMLHttpRequest
          Set Request = .Request
      End With
End Sub