custom json

Public Sub customjson()
Dim mainContainer As New Dictionary, priceArray As New Collection, priceContainer As New Dictionary
mainContainer("id") = "001"
mainContainer("name") = "mark"
mainContainer("minCount") = "10000"
priceContainer("name") = "product"
priceContainer("value") = "100"
priceContainer("key") = "pr21"
priceArray.Add priceContainer
mainContainer.Add "price", priceArray
Debug.Print ConvertToJson(mainContainer, Whitespace:=2)
End Sub