Dim s As String = $"callback({"id":"48080","province":"Bizkaia","muni":"Valle de Trápaga-Trapagaran","type":"Municipio","address":"Valle de Trápaga-Trapagaran","postalCode":Null,"poblacion":Null,"geom":"POLYGON ((-3.0628470500000002 43.264890630000004, -3.0628470500000002 43.31237445, -3.00443827 43.31237445, -3.00443827 43.264890630000004, -3.0628470500000002 43.264890630000004))","tip_via":Null,"lat":43.28863254,"lng":-3.0336426600000004,"portalNumber":0,"stateMsg":"Dirección no encontrada, se devuelve el municipio","state":10,"countryCode":"011","refCatastral":Null})"$
s = s.SubString2(s.IndexOf("{"), s.LastIndexOf("}") + 1)
Dim p As JSONParser
p.Initialize(s)
Dim m As Map = p.NextObject
Log(m)