Dim url = "http://ya.ru"
        Dim request As HttpWebRequest = DirectCast(WebRequest.Create(url), HttpWebRequest)
        request.Method = "GET"
        request.UserAgent = "Mozila/5.O (Windows; U; Windows NT 5.1; ru; rv:1.9.0.15) Gecko/2OO912O2O8 Firefox/3.O.16"

        Dim stream As Stream = request.GetResponse().GetResponseStream()
        Dim reader As New StreamReader(stream, System.Text.Encoding.UTF7)
        Dim b(100) As Char

        reader.Read(b, 1, 100)
        Dim result As String = New String(b)
        Me.TextBox1.Text = Replace(result, Chr(0), "")

Dim n = -1
        Dim b() As String
        Do
            n = n + 1
            ReDim Preserve b(n)
            b(n) = Chr(reader.Read())

            If reader.EndOfStream = True Then Exit Do

        Loop

\r\n Dim url = "/topic/976497&pg=-1"\r\n        Dim request As HttpWebRequest = DirectCast(WebRequest.Create(url), HttpWebRequest)\r\n        request.Method = "GET"\r\n        request.AddRange(500, 700)\r\n        request.UserAgent = "Mozila/5.O (Windows; U; Windows NT 5.1; ru; rv:1.9.0.15) Gecko/2OO912O2O8 Firefox/3.O.16"\r\n\r\n        Dim stream As Stream = request.GetResponse().GetResponseStream()\r\n        Dim reader As New StreamReader(stream, System.Text.Encoding.UTF7)\r\n        Dim b(100) As Char\r\n\r\n        Dim result As String = reader.ReadToEnd\r\n        \' Dim result As String = New String(b)\r\n        Me.TextBox1.Text = Replace(result, Chr(0), "")\r\n