VBA-jsonの連想配列について

前提・実現したいこと

ここに質問の内容を詳しく書いてください。

VBA-jsonを利用し、jsonを出力させていです

発生している問題・エラーメッセージ

実行結果は
{
"configObject ": {
"name":"サンプ"
}
}

Infoの連想配列はどのようにしたら反映されますでしょうか？

該当のソースコード

VBA
1    Dim JsonObject As Dictionary
2    Dim configObject As Dictionary
3    Dim Info As Dictionary
4    Set JsonObject = CreateObject("Scripting.Dictionary")
5    Set configObject = CreateObject("Scripting.Dictionary")
6    Set Info  = CreateObject("Scripting.Dictionary")
7 
8    
9    configObject.Add "config ", JsonObject
10    JsonObject.Add "name", "サンプル"
11    Info.Add "id", 1
12

試したこと

VBA-JSONを利用してjsonを出力させたいです。
出力想定のjson
{
"configObject ": {
"name":"サンプ"
},
" id": {
1
}
}
この様なjsonを出力させたいです。

m.ts10806

2020/10/25 21:46

コードやエラーはマークダウンのcode機能を利用してご提示ください。 https://teratail.com/questions/238564

sinzo

2020/10/26 00:33

{ "configObject ": {"name":"サンプ"}, " id": {1} } なので configObject.Add "configObject", JsonObject:JsonObject.Add "name", "サンプル" ができているなら configObject..Add "id", 1 なのでは？。。私は環境持っていないのでおくそくです。

sinzo

2020/10/26 00:35

configObject.Add "id", JsonObject:JsonObject.Add 1 こうなるのかも？