Dim parser As JSONParser
parser.Initialize(<text>)
Dim root As Map = parser.NextObject
Dim store As Map = root.Get("store")
Dim bicycle As Map = store.Get("bicycle")
Dim color As String = bicycle.Get("color")
Dim price As Double = bicycle.Get("price")
Dim book As List = store.Get("book")
For Each colbook As Map In book
Dim author As String = colbook.Get("author")
Dim price As Double = colbook.Get("price")
Dim category As String = colbook.Get("category")
Dim title As String = colbook.Get("title")
Next