Dim objJson As Object
Set objJson = New Dictionary
Set objJson("categories") = New Collection
With objJson("categories")
Call .Add(New Dictionary)
.Item(.Count)("id") = "9"
.Item(.Count)("name") = "Clothing"
.Item(.Count)("slug") = "clothing"
Call .Add(New Dictionary)
.Item(.Count)("id") = "14"
.Item(.Count)("name") = "T-shirts"
.Item(.Count)("slug") = "t-shirts"
End With
Debug.Print JsonConverter.ConvertToJson(objJson, 2)