Dim str As String
    Dim arr As Collection
    Dim mm As Integer
    str = "{" & Chr(34) & "result" & Chr(34) & ":" & "[" & Chr(34) & "aaaa" & Chr(34) & "," & Chr(34) & "bbbb" & Chr(34) & "]" & "," & Chr(34) & "success" & Chr(34) & ": " & Chr(34) & " su " & Chr(34) & "}"
    Set json = JsonConverter.ParseJson(str)
    Debug.Print TypeName(json("result"))  ' Collection 对象
    
    Set arr = json("result")
    
    For mm = 1 To arr.Count '下标从1开始
        Debug.Print arr(mm)
    Next
    

Collection——百度搜索https://baijiahao.baidu.com/s?id=1775839135172546650&wfr=spider&for=pc