Как получить html код любой страницы в сети Интернет?
Необходимо добавить на рабочую форму: Webbrowser, textbox2, textbox1(multiLine)

Код:

Dim xmlhttp
Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
xmlhttp.open "GET", "http://test.ru", False
xmlhttp.send
msgbox xmlhttp.responseText

Public Class Form1

      Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

WebBrowser1.Navigate(TextBox2.Text)  'Вводим любой сайт
     End Sub

 

Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted 
TextBox1.Text = WebBrowser1.Document.Body.InnerHtml

         End Sub
 End Class