Private Function ReadURL(ByVal sURL As String) As String
        Dim sBuffer As String = ""
 
        ' WebRequest
        Dim MyWebRequest As WebRequest
        Try
            MyWebRequest = WebRequest.Create(sURL)
            MyWebRequest.Method = "GET"
        Catch ex As Exception
            sBuffer = sBuffer + ex.Message + vbCrLf
            Return sBuffer
        End Try
 
        ' Antwort auf unsere Anfrage abholen
        Dim MyWebResponse As WebResponse
        Try
'####################################################
            MyWebResponse = MyWebRequest.GetResponse()
'####################################################
            ' Datenstrom empfangen
            Dim InputStream As New StreamReader(MyWebResponse.GetResponseStream( _
              ))
            sBuffer = InputStream.ReadToEnd()
            InputStream.Close()
 
            ' Response beenden
            MyWebResponse.Close()
        Catch ex As Exception
            sBuffer = sBuffer + ex.Message
        End Try
 
        ' empfangene Daten an Funktion zurückgeben
        Return sBuffer
    End Function

Ciao

J?rgen

PS: geht nicht gibt's nicht