Private Function inetReadFile(ByVal sURL As String) As String
        Dim sBuffer As String
 
        ' WebRequest
        Dim oRequest As WebRequest = WebRequest.Create(sURL)
        oRequest.Credentials = New NetworkCredential("", "Passwort")
        oRequest.PreAuthenticate = True
        ' GET-Methode (wir wollen etwas abholen :-)
        oRequest.Method = "GET"
 
        ' Antwort auf unsere Anfrage abholen
        Dim oResponse As WebResponse = oRequest.GetResponse
 
        'Ascii umwandlung (Sonderzeichen)
        Dim enc As System.Text.Encoding
        enc = System.Text.Encoding.ASCII
 
        ' Datenstrom auslesen
        Dim oStream As New StreamReader(oResponse.GetResponseStream(), enc)
        sBuffer = oStream.ReadToEnd()
        oStream.Close()
 
 
        ' Beenden
        oResponse.Close()
 
        ' Inhalt zurückgeben
        Return sBuffer
    End Function