Dim parser As JSONParser
parser.Initialize(<text>)
Dim root As List = parser.NextArray
For Each colroot As Map In root
Dim car As String = colroot.Get("car")
Dim model As String = colroot.Get("model")
Next
where is the remaining of Json input parsing? "year,price"