BtoBPF API Response JSONをVBAでパーサー

BtoBPF API responce JSONをVBAでパーサー | 備忘録　(。・_・。)ノ
より抜粋

Option Explicit
Private Sub VBA_JSON_TEST()
Dim Parse As Object
Dim i As Long
Dim j As Long
Dim strJson As String
    strJson = ""
    For i = 1 To Worksheets(1).Range("A1").End(xlDown).Row
        strJson = strJson & Worksheets(1).Cells(i, 1)
    Next i
    Set Parse = JsonConverter.ParseJson(strJson)
    Debug.Print Parse("result")
    Debug.Print Parse("jounal_frees")("jnl_free_code1")
    For i = 1 To Parse("invdata").Count
        Debug.Print Parse("invdata")(i)("inv_no")
        For j = 1 To Parse("invdata")(i)("banks").Count
            Debug.Print Parse("invdata")(i)("banks")(j)("depositor_name")
        Next j
        For j = 1 To Parse("invdata")(i)("details").Count
            Debug.Print Parse("invdata")(i)("details")(j)("item_aut_amount_d")
        Next j
    Next i
    Set Parse = Nothing
End Sub