Dim parser As JSONParser
parser.Initialize($"[{"Telf":"666666666","Icono":"icon01.png","Lat":36.8003,"Lng":-2.5830318927764893,"Mde":"WIFI","Fecha":"20151224"}]"$)
Dim root As List = parser.NextArray
For Each colroot As Map In root
Dim Lng As Double = colroot.Get("Lng")
Dim Fecha As String = colroot.Get("Fecha")
Dim Icono As String = colroot.Get("Icono")
Dim Telf As String = colroot.Get("Telf")
Dim Lat As Double = colroot.Get("Lat")
Dim Mde As String = colroot.Get("Mde")
Next