Public Function getHTML(ByVal URL As String) As String
        Dim response As WebResponse
        Dim request As HttpWebRequest
        Dim reader As BinaryReader
        Dim b() As Byte = New Byte(100) {}
        Dim bytes As Integer
 
        request = System.Net.HttpWebRequest.Create(URL)
        request.Method = "GET"
        request.Timeout = 6000
        response = request.GetResponse
        reader = New BinaryReader(response.GetResponseStream)
 
        Do
            bytes = reader.Read(b, 0, 100)
            If bytes >= 100 Then Exit Do
        Loop
 
        Console.WriteLine("fertig")
        reader.Close()
        Console.WriteLine("geschlossen")
 
    End Function