Парсинг JSON VBA?

Первый раз на этом ресурсе. Не разработчик, но заинтересовался VBA. Прошу помощи. Хочу спарсить JSON из URL, но получаю ошибку Run-time Error 13" Type Mismatch c указанием Sheets(1).Cells(i, 1).Value = Item("barcode") Понимаю что не тот тип переменной или иного, но разобраться сам уже не могу. Ниже json и сам VBA. Спасибо

{
    "barcode": "",
    "devCode": "1",
    "height": 0,
    "itemType": 0,
    "length": 0,
    "weight": 0,
    "width": 0
}

Public Sub exceljson() 
    Dim http As Object, JSON As Object, i As Integer
    Set http = CreateObject("MSXML2.XMLHTTP")
    http.Open "GET", "http://******", False
    http.Send
    Set JSON = ParseJson(http.responseText)
    i = 2
    For Each Item In JSON
    Sheets(1).Cells(i, 1).Value = Item("barcode") 
    Sheets(1).Cells(i, 2).Value = Item("devCode")
    Sheets(1).Cells(i, 3).Value = Item("height")
    Sheets(1).Cells(i, 4).Value = Item("itemType")
    Sheets(1).Cells(i, 5).Value = Item("lenght")
    Sheets(1).Cells(i, 6).Value = Item("weight")
    Sheets(1).Cells(i, 7).Value = Item("width")
    i = i + 1
    Next
    MsgBox ("complete")
    End Sub