Unable To Connect

[EL RULES]

aqui te envio el codigo, en realidad es un ejemplo que consegui en la internet, lo he estado analizando pero me da el mismo problema siempre, no se por que razon..

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

' Get URL and proxy
' from the text boxes.
Dim url As String = txtURL.Text
Dim proxy As String = txtProxy.Text

Try
If Not "".Equals(txtProxy.Text) Then
Dim proxyObject As New WebProxy(proxy, 80)

' Disable proxy use when the host is local.
proxyObject.BypassProxyOnLocal = True

' HTTP requests use this proxy information.
GlobalProxySelection.Select = proxyObject
End If

Dim req As WebRequest = WebRequest.Create(url)
Dim result As WebResponse = req.GetResponse()
Dim ReceiveStream As Stream = result.GetResponseStream()
'Dim encode As Encoding = System.Text.Encoding.GetEncoding("utf-8")
Dim sr As New StreamReader(ReceiveStream) ', encode)

' Read the stream into arrays of 30 characters
' to add as items in the list box. Repeat until
' buffer is read.
Dim read(29) As [Char]
Dim count As Integer = sr.Read(read, 0, 30)
While count > 0
Dim str As New String(read, 0, count)
lstResults.Items.Add(str)
count = sr.Read(read, 0, 30)
End While
Catch ex As WebException
Dim message As String = ex.Message
Dim response As HttpWebResponse = CType(ex.Response, HttpWebResponse)
If Nothing Is response Then
Else
message = response.StatusDescription
response.Close()
End If
lstResults.Items.Add(message)
Catch ex As Exception
lstResults.Items.Add(ex.Message)
End Try

End Sub

de verdad que agradeceria la ayuda.....la FORM1 tiene como componentes dos text box y un rich text box donde deberia aparecer los resultados de el txt que deseo bajar...bueno gracias,s aludos