Android Question Parsing Json Array

Dim parser As JSONParser
parser.Initialize(<text>)
Dim jRoot As Map = parser.NextObject
Dim visibility As Int = jRoot.Get("visibility")
Dim timezone As Int = jRoot.Get("timezone")
Dim main As Map = jRoot.Get("main")
Dim temp As Double = main.Get("temp")
Dim temp_min As Double = main.Get("temp_min")
Dim grnd_level As Int = main.Get("grnd_level")
Dim humidity As Int = main.Get("humidity")
Dim pressure As Int = main.Get("pressure")
Dim sea_level As Int = main.Get("sea_level")
Dim feels_like As Double = main.Get("feels_like")
Dim temp_max As Double = main.Get("temp_max")
Dim clouds As Map = jRoot.Get("clouds")
Dim all As Int = clouds.Get("all")
Dim sys As Map = jRoot.Get("sys")
Dim country As String = sys.Get("country")
Dim sunrise As Int = sys.Get("sunrise")
Dim sunset As Int = sys.Get("sunset")
Dim dt As Int = jRoot.Get("dt")
Dim coord As Map = jRoot.Get("coord")
Dim lon As Int = coord.Get("lon")
Dim lat As Int = coord.Get("lat")
Dim weather As List = jRoot.Get("weather")
For Each colweather As Map In weather
 Dim icon As String = colweather.Get("icon")
 Dim description As String = colweather.Get("description")
 Dim main As String = colweather.Get("main")
 Dim id As Int = colweather.Get("id")
Next
Dim name As String = jRoot.Get("name")
Dim cod As Int = jRoot.Get("cod")
Dim id As Int = jRoot.Get("id")
Dim base As String = jRoot.Get("base")
Dim wind As Map = jRoot.Get("wind")
Dim deg As Int = wind.Get("deg")
Dim speed As Double = wind.Get("speed")
Dim gust As Double = wind.Get("gust")