مشکل در دریافت json

[mohammad3250 206]

{
    "reqStatus": {
        "statusCode": 200,
        "message": null
    },
    "result": {
        "state": "تهران",
        "county": "تهران",
        "city": "تهران",
        "region": "مركزي تهران",
        "zone": "منطقه 9",
        "district": "شهيد دستغيب",
        "village": "",
        "other": "",
        "ways": "کوچه مطهري نژاد , خیابان هاشمي , بزرگراه يادگار امام "
    }
}

سلام همچین json چطور میشه مثلا به city درسترسی پیدا کرد

[mohammad3250 206]

Private json As JSONParser
			json.Initialize(Result)
			Dim Map1 As Map
			Map1 = json.NextObject
			Private map2 As Map=Map1.Get("result")