Syntax 

ParseJson(text)


Group 

Miscellaneous 


Description 

Return the JsonValues object containing the JSON values in the text. A JsonValues object can contain either a JSON object or a JSON array. If the text is not valid JSON then a run-time error occurs.


See Also 

JsonValues


Example

Sub Main

    Dim text As String

    text = "{""member1"":""value1""}"

    Dim json As JsonValues

    Set json = ParseJson(text)

    Debug.Print json.Count ' 1

    Debug.Print json!member1 '"value1"

End Sub