' Create a request for the URL. 		
        Dim request As HttpWebRequest = HttpWebRequest.Create(MyAdress)
        ' If required by the server, set the credentials.
        request.Credentials = New NetworkCredential("MyUser", "MyPassword")
        request.PreAuthenticate = True
        request.Pipelined = False
        request.KeepAlive = True
        request.UserAgent = "Mozilla/4.0 (Compatible; IE6.0; Windows NT 5.1;" & _
          "SV1)"
        request.UnsafeAuthenticatedConnectionSharing = False
        ' Get the response.
        Dim response As HttpWebResponse = CType(request.GetResponse(), _
          HttpWebResponse)
        ' Get the stream containing content returned by the server.
        Dim dataStream As Stream = response.GetResponseStream()
        ' Open the stream using a StreamReader for easy access.
        Dim reader As New StreamReader(dataStream)
        ' Read the content.
        Dim Ergebnis As String = reader.ReadToEnd()

Herzliche Gr??e
Peter