Android Question help json google map

Dim parser As JSONParser
parser.Initialize(<text>)
Dim root As Map = parser.NextObject
Dim routes As List = root.Get("routes")
For Each colroutes As Map In routes
Dim summary As String = colroutes.Get("summary")
Dim copyrights As String = colroutes.Get("copyrights")
Dim legs As List = colroutes.Get("legs")
For Each collegs As Map In legs
  Dim duration As Map = collegs.Get("duration")
  Dim text As String = duration.Get("text")
  Dim value As Int = duration.Get("value")
  Dim start_location As Map = collegs.Get("start_location")
  Dim lng As Double = start_location.Get("lng")
  Dim lat As Double = start_location.Get("lat")
  Dim distance As Map = collegs.Get("distance")
  Dim text As String = distance.Get("text")
  Dim value As Int = distance.Get("value")
  Dim start_address As String = collegs.Get("start_address")
  Dim end_location As Map = collegs.Get("end_location")
  Dim lng As Double = end_location.Get("lng")
  Dim lat As Double = end_location.Get("lat")
  Dim end_address As String = collegs.Get("end_address")
  Dim via_waypoint As List = collegs.Get("via_waypoint")
  Dim steps As List = collegs.Get("steps")
  For Each colsteps As Map In steps
   Dim duration As Map = colsteps.Get("duration")
   Dim text As String = duration.Get("text")
   Dim value As Int = duration.Get("value")
   Dim start_location As Map = colsteps.Get("start_location")
   Dim lng As Double = start_location.Get("lng")
   Dim lat As Double = start_location.Get("lat")
   Dim distance As Map = colsteps.Get("distance")
   Dim text As String = distance.Get("text")
   Dim value As Int = distance.Get("value")
   Dim travel_mode As String = colsteps.Get("travel_mode")
   Dim html_instructions As String = colsteps.Get("html_instructions")
   Dim end_location As Map = colsteps.Get("end_location")
   Dim lng As Double = end_location.Get("lng")
   Dim lat As Double = end_location.Get("lat")
   Dim polyline As Map = colsteps.Get("polyline")
   Dim points As String = polyline.Get("points")
  Next
Next
Dim warnings As List = colroutes.Get("warnings")
Dim bounds As Map = colroutes.Get("bounds")
Dim southwest As Map = bounds.Get("southwest")
Dim lng As Double = southwest.Get("lng")
Dim lat As Double = southwest.Get("lat")
Dim northeast As Map = bounds.Get("northeast")
Dim lng As Double = northeast.Get("lng")
Dim lat As Double = northeast.Get("lat")
Dim overview_polyline As Map = colroutes.Get("overview_polyline")
Dim points As String = overview_polyline.Get("points")
Dim waypoint_order As List = colroutes.Get("waypoint_order")
Next
Dim geocoded_waypoints As List = root.Get("geocoded_waypoints")
For Each colgeocoded_waypoints As Map In geocoded_waypoints
Dim types As List = colgeocoded_waypoints.Get("types")
For Each coltypes As String In types
Next
Dim geocoder_status As String = colgeocoded_waypoints.Get("geocoder_status")
Dim place_id As String = colgeocoded_waypoints.Get("place_id")
Next
Dim status As String = root.Get("status")