Dim parser As JSONParser
jsonstring = "{"message":"ok","error":{"token":"eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzI1NiJ9.eyJleHAiOjE2MTM3NzkyMDB9.irt65S41YrqnozMrDJXxHddk1JcTFiLxGcfcLXbf2jE","userid":"10"}} "
parser.Initialize(jsonstring)
Dim messagex As Map
messagex = parser.NextObject