Public Function Download(ByVal url As String) As String
        Dim wr As HttpWebRequest = CType(HttpWebRequest.Create(url), _
          HttpWebRequest)
        wr.Method = "GET"
        wr.Timeout = 30000
        Using resp As HttpWebResponse = CType(wr.GetResponse(), HttpWebResponse)
            If resp.StatusCode = HttpStatusCode.OK Then
                Dim strm As Stream = resp.GetResponseStream()
                Dim data(resp.ContentLength - 1) As Byte
                strm.Read(data, 0, resp.ContentLength())
                Return Encoding.UTF8.GetString(data)
            Else
                Return "Oops, nix bekommen"
            End If
        End Using
    End Function

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist