Dim _WebResponse As WebResponse = _HttpWebRequest.GetResponse()

Public Function DownloadHTMLPage(ByVal _URL As String) As String
        Dim _PageContent As String = Nothing
        Try
            ' Lädt den Quelltext einer Seite aus dem Inter-/Intranet herunter
            ' und liefert ihn als String zurück. Bei Auftreten eines
            ' beliebigen Fehlers wird ein leerer String returniert.
            Dim _HttpWebRequest As HttpWebRequest = CType(HttpWebRequest.Create( _
              _URL), HttpWebRequest)
            ' You can also specify additional header values like the user agent 
            ' or the referer: (Optional)
            _HttpWebRequest.UserAgent = "Mozilla/4.0 (compatible; MSIE 7.0;" & _
              "Windows NT 5.1)"
            _HttpWebRequest.Referer = "http://www.google.com/"
            ' set timeout for 10 seconds (Optional)
            _HttpWebRequest.Timeout = 10000
            ' Request response:
            Dim _WebResponse As WebResponse = _HttpWebRequest.GetResponse()
            ' Open data stream:
            Dim _WebStream As Stream = _WebResponse.GetResponseStream()
            ' Create reader object:
            Dim _StreamReader As New StreamReader(_WebStream)
            ' Read the entire stream content:
            _PageContent = _StreamReader.ReadToEnd()
            ' Cleanup
            _StreamReader.Close()
            _WebStream.Close()
            _WebResponse.Close()
 
        Catch _Exception As Exception
            ' Error
            MsgBox(_Exception.ToString())
            Return Nothing
        End Try
 
        Return _PageContent
    End Function