Dim jp As JSONParser
Dim jsonSaldo As String
jsonSaldo = "{""saldoCC"":""328.00"",""saldoSyR"":""30.00"",""saldoCB"":""0.00"",""cbPoints"":10.0,""Msg"":""OK""}"
jp.Initialize(jsonSaldo)
Log("jsonSaldo: " & jsonSaldo)
Dim quotes As List = jp.NextArray
For Each quot As Map In quotes
'Log("saldoCC: " & quot.Get("saldoCC"))
Next