【VBA-JSON】連想配列の配列の書き方

前回に引き続き連想配列の配列でつまずいたので覚え書きです。

とりあえずPHPで書くとこんなデータです。

php

$data = array(
    'shcool' => '第一中央',
    'class' => "3-2",
    'number' => "21",
    'testList' => ["数学","日本史"],
    'find' => array(
        'statement' => 'AND',
        'statementList' => array([
                        'key' => '試験日',
                        'operator' => '>=',
                        'value' => '2020/05/15 00:00:00',
                        ],[
                        'key' => '試験日',
                        'operator' => '<=',
                        'value' => '2020/05/15 23:59:59',
                        ],),
    ),
    'limit' => 5,
    'select' => array([
                        'fieldName' => '問い3回答',
                        'returnName' => 'Q3 A'],
    ),
);

これをVBA-JSONで書くとこうなりました。
一部変数にして文字列結合しています。クォーテーションの数が凄いことになって混乱します。

vba

class = "3-2"
number = "21"

Dim param As Object
Set param = JsonConverter.ParseJson("{""shcool"":""第一中央""," & _
"""class"":""" & class & """," & _
"""number"":""" & number & """" & _
"""testList"":[""数学","日本史""]," & _
"""find"":{""statement"":""AND""," & _
"""statementList"":[{""key"":""試験日"",""operator"":"">\="",""value"":""2020/05/15 00:00:00""}," & _
"{""key"":""UPDATE_TIMESTAMP"",""operator"":""<\="",""value"":""2020/05/15 23:59:59""}]}" & _
"""limit"":5," & _
"""select"":[{""fieldName"":""問い3回答"",""returnName"":""Q3 A""}]" & _
"}")