For i = 0 To 99
Dim str As Map = results.Get(i)
Dim strVar As String = str.Get("interval_end")
Dim strArray() As String=Regex.Split("T",strVar)
Dim TextExtract As String=strArray(0)
from=TextExtract
cons = str.Get("consumption")
tim0 = str.Get("interval_start")
tim0 = tim0.SubString2(11,16)
tim1 = str.Get("interval_end")
tim1 = tim1.SubString2(11,16)
N(i) = tim0
V(i) = cons
AddRow(Array As String(from, tim0, tim1, cons))
Next