Having Issues getting started

[happyhumorist]

I was following RedStapler's guide here: https://www.youtube.com/watch?v=CFFLRmHsEAs

But I kept getting errors involving this line of the JsonConverter Module:
json_ParseObject.Item(json_Key) = json_ParseValue(json_String, json_Index)

Its saying Run-Time error'0':
KeyNotFoundError
Dictionary key not found :id

This is the code i'm trying to run:

Sub testJson()

Dim jsontext As String
Dim productObject As Object
jsontext = "{'id':'p01','name':'name 1','price':4.5,'quantity':20}"
Debug.Print jsontext
Set productObject = JsonConverter.ParseJson(jsontext)
Debug.Print productObject("id")

End Sub

I have the MS Scripting Runtime checked in my references.

Do I have something misspelled?

[happyhumorist]

After redownloading the .bas file and starting a new spreadsheet it now works.

It still won't work with the initial file. I'm not sure why.

[ngluva]

What you have is not JSON. Need to use double quotes.
{
"id": "p01",
"name": "name 1",
"price": 4.5,
"quantity": 20
}

When in doubt, I use an online JSON validator. https://jsonlint.com/
Did you know that ChatGPT 3.5 knows about this library and in fact recommends it?