' Internet-Datei auslesen
    Private Function inetReadFile(ByVal sURL As String) As String
        Try
 
            Dim sBuffer As String
 
            ' WebRequest
            Dim oRequest As WebRequest = WebRequest.Create(sURL)
 
            ' GET-Methode (wir wollen etwas abholen :-)
            oRequest.Method = "GET"
 
            ' Antwort auf unsere Anfrage abholen
            Dim oResponse As WebResponse = oRequest.GetResponse()
 
            ' Datenstrom auslesen
            Dim oStream As New StreamReader(oResponse.GetResponseStream())
            sBuffer = oStream.ReadToEnd()
            oStream.Close()
 
            ' Beenden
            oResponse.Close()
 
            ' Inhalt zurückgeben
            Return sBuffer
        Catch
            Application.DoEvents()
 
        End Try
 
    End Function

Joachim