Public Function GetHTMLPage(ByVal URL As String) As String
        Dim sResult As String
        Dim oHttp As HttpWebRequest
        Dim objResponse As WebResponse
        Dim objRequest As WebRequest
 
        Try
            objRequest = System.Net.HttpWebRequest.Create(URL)
 
            objRequest.Method = "GET"
            objRequest.Timeout = 120000
            objResponse = objRequest.GetResponse
 
            ProgressBarinPercent(URL, ProgressBar1)
 
            Dim sr As System.IO.StreamReader = _
                  New System.IO.StreamReader( _
                  objResponse.GetResponseStream(), _
                  System.Text.Encoding.UTF7)
 
            sResult = sr.ReadToEnd()
 
            sr.Close()
            objResponse.Close()
 
            Return sResult
 
        Catch ex As System.Exception
            Logdatei_schreiben("logdatei.txt", ex.Message)
 
            ProgressBar1.Value = (0)
 
            oHttp = Nothing
            objResponse = Nothing
            objRequest = Nothing
        End Try
    End Function