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