Public Sub Verbrauch()
        Dim hReq As HttpWebRequest = DirectCast(HttpWebRequest.Create( _
          "http://000.000.178.00/data/55e16300-7235-11e9-0000-ad490f084f24.txt" & _
          "from=now"), HttpWebRequest)
        Dim hRes As HttpWebResponse = DirectCast(hReq.GetResponse(), _
        HttpWebResponse)
        Dim s As Stream = hRes.GetResponseStream()
        Dim sR As New StreamReader(s)
        Dim webPage As String = sR.ReadToEnd()
        sR.Close()
        s.Close()
        sR = Nothing
        s = Nothing
        hReq = Nothing
        hRes = Nothing
 
        Label1.Text = Math.Round(webPage, 2).ToString("0.00") ?????
 
    End Sub