Public Function HttpGET(ByVal URL As String) As String
        Dim myWebClient As New WebClient()
        myWebClient.Headers.Add("Accept", "text/html, application/xml;q=0.9," & _
          "application/xhtml+xml, image/png, image/jpeg, image/gif," & _
          "image/x-xbitmap, */*;q=0.1")
        myWebClient.Headers.Add("Accept-Language", "de")
        myWebClient.Headers.Add("Accept-Charset", "iso-8859-1, utf-8, utf-16," & _
          "*;q=0.1")
        myWebClient.Headers.Add("User-Agent", "Mozilla/4.0 (compatible; MSIE" & _
        "6.0; Windows NT 5.1) Opera 7.50  [en]")
        Try
            Dim myStream As Stream = myWebClient.OpenRead(URL)
            Dim sr As New StreamReader(myStream)
            HttpGET = sr.ReadToEnd()
        Catch e As WebException
            MsgBox(e.ToString)
        End Try
    End Function