Imports System.Net
Imports System.IO
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
    ' Internet-Datei auslesen
    Private Function inetReadFile(ByVal sURL As String) As String
        Dim sBuffer As String
 
        ' WebRequest
        Dim oRequest As WebRequest = WebRequest.Create(sURL)
 
        ' GET-Methode (wir wollen etwas abholen :-)
        oRequest.Method = "GET"
 
        ' Antwort auf unsere Anfrage abholen
        Dim oResponse As WebResponse = oRequest.GetResponse()
 
        ' Datenstrom auslesen
        Dim oStream As New StreamReader(oResponse.GetResponseStream())
        sBuffer = oStream.ReadToEnd()
        oStream.Close()
 
        ' Beenden
        oResponse.Close()
 
        ' Inhalt zurückgeben
        Return sBuffer
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        ' Geht zu der angegebenen URL
        WebBrowser1.Navigate(TextBox1.Text)
        ' HTML-Seite auslesen
        TextBox1.Text = inetReadFile(TextBox2.Text)
 
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        WebBrowser1.Show()
    End Sub
 
End Class

Dim oRequest As WebRequest = WebRequest.Create(sURL)