Загрузка содержимого сайта в html - Visual Basic .NET

        Dim oHttp As Object
        Dim strURL As String
 
        strURL = "https://www.instagram.com/"
 
        On Error Resume Next
        oHttp = CreateObject("MSXML2.XMLHTTP")
        If Err.Number <> 0 Then
            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()
        TextBox1.Text = oHttp.ResponseText
        Debug.Print(oHttp.ResponseText)
        oHttp = Nothing
        MsgBox("Данные успешно импортированы!", vbInformation)

        Dim client As New WebClient     'Создаем объект client класса WebClient 
        Dim url As String = "https://www.shutterstock.com/ru/"  'Создаём строку для хранения 'url 
        Dim stream As Stream  'Создаём объект stream класса Stream 
        stream = client.OpenRead(url)  'Считываем данные 
        Dim reader As New StreamReader(stream)  'Создаём объект reader 'класса StreamReader 
        Dim result As String = reader.ReadToEnd() 'Используем метод
        'ReadToEnd() ' для чтения содержимого потока до конца
        MsgBox(result) 'Выводим содержимое переменной result