Dim parser As JSONParser
parser.Initialize(<text>) '<--- Modify this line adding your JSON string.
Dim root As List = parser.NextArray
For Each colroot As Map In root
Dim siteLibelle As String = colroot.Get("siteLibelle")
Dim siteId As Int = colroot.Get("siteId")
Next