Code snippet to loop through JSON data

read_json_in_macrocode.vb

    Dim jsonObject  As Object, item        As Variant
    
    Set jsonObject = JsonConverter.ParseJson(strResponse)
    For Each item In jsonObject
        'do something with json object
    Next item