vba把json转数组中,通过VBA解析Json数组

I am getting a json response from an api and parse it to update in excel. Below is the code. I am not able to parse further to get the price info.

Dim strResult As String

Dim objHTTP As Object

Dim URL As String

Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")

URL = "https://bitbns.com/order/getTickerAll"

objHTTP.Open "GET", URL, False

objHTTP.Send

Set JSON = JsonConverter.ParseJson(objHTTP.ResponseText)

'strResult = objHTTP.ResponseText

'MsgBox JSON(1)("BTC")("sellPrice")

baseCol = 9

buyCol = 10

sellCol = 11

i = 1

Dim keyCurr As String

For Each Item In JSON

ActiveSheet.Cells(i + 2, baseCol).Value = Item.Keys

i = i + 1

Next

Kinl