Dim F As Integer
    Dim JsonData As String
    Dim JB As JsonBag
    ' Получаем строку из файла, это действие можно пропустить, если строка приходит с сервера, в этом случае ее сразу можно 
    ' сохранить в переменную JsonData.
    F = FreeFile(0)
    Open "test_json_sell.json" For Input As #F
    JsonData = Input$(LOF(F), #F)
    Close #F
    ' Это к делу не относиться, тут просто вывод в текстовую форму для просмотра json
    inpTextArea.Text = JsonData
    
   ' Создание объекта и собственно вызов парсинга для полученной строки json из файла
    Set JB = New JsonBag
    JB.JSON = JsonData
    ' После парсинга обращение к полям происходит так (один из способов, мне кажется самый короткий).
    MsgBox JB(2)("transactions")(6)("type")