Dim j As String = $"{
data: {
key1: value1,
complex_key2: {key: value2}
},
items: [0, 1, 2]
}"$
Dim parser As JSONParser
parser.Initialize(j)
Dim m As Map = parser.NextObject
Dim value1 As String = m.Get As Map("data").Get("key1")
Dim value2 As String = m.Get As Map("data").Get As Map("complex_key2").Get("key")
Dim FirstItemInList As String = m.Get As List("items").Get(0)
For Each item As Int In m.Get As List("items")
Log(item)
Next