json - Json perse を使用して特定のデータを出力する

Question

これはjsonコード ( https://textsaver.flap.tv/lists/3ic4 ) であり、私は試しています

Sub test()
Dim req As New MSXML2.XMLHTTP60
Dim URL As String, ws As Worksheet
Dim json As Object, r, r1 As String
URL = "https://www.nseindia.com/api/quote-equity?symbol=DIVISLAB"
With req
.Open "GET", URL, False
.send
Set json = JsonConverter.ParseJson(.responseText)
r = json("data")(1)("CH_OPENING_PRICE")
r1 = json("data")(1)("CH_CLOSING_PRICE")
End With

Debug.Print r
Debug.Print r1
End Sub

以下のポイントの下にTEXTを印刷したい。その画像も青色で強調表示されています。

json>[data]>{1}>CH_OPENING_PRICE & CH_CLOSING_PRICE.

ネストされた json からのテキストのトリミングに関する基本的なアイデアについて、誰かが私にウェブサイトや本を提案してくれると、より役に立ちます。