Descargar y mostrar el contenido de una página web

Imports System.Net
Imports System.IO

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
            Handles Button1.Click
 
  Dim HttpWResponse As HttpWebResponse = Nothing
  Dim sr As StreamReader = Nothing
 
  Try
    Dim HttpWRequest As HttpWebRequest = CType(WebRequest.Create(textBox1.Text), HttpWebRequest)
    HttpWResponse = CType(HttpWRequest.GetResponse, HttpWebResponse)
    sr = New StreamReader(HttpWResponse.GetResponseStream)
    richTextBox1.Text = sr.ReadToEnd
  Catch ex As Exception
    MessageBox.Show(ex.Message)
  Finally
    If Not (HttpWResponse Is Nothing) Then
      HttpWResponse.Close
    End If
    If Not (sr Is Nothing) Then
      sr.Close
    End If
  End Try
End Sub