VBA JSON конвертер не преобразует более 15 цифр

Я использую конвертер VBA JSON по этой ссылке https://github.com/VBA-tools/VBA-JSON

У меня есть ячейка, которая имеет 16-значный номер, однако, когда я преобразую его в JSON, он преобразует его без кавычек.

Значит, это должно быть так

{

    ID: "1525879763214789"

}

Но появляется вот так

{

   ID: 1525879763214789

}

Я попытался изменить формат ячейки на текст, но это тоже не помогло

Правка:

Private Sub CommandButton3_Click()

Dim z As Integer, items As New Collection, myitem As New Dictionary

Dim rng As Range

Dim cell As Variant

Dim FSO As New FileSystemObject

Dim JsonTS As TextStream

Set JsonTS = FSO.OpenTextFile("test.json", ForReading)

JsonText = JsonTS.ReadAll

JsonTS.Close

Set JSON = ParseJson(JsonText)



JSON("root")(1)("STATUS_RESPONSE")("RESULT")(1)("USER")("BUSINESS_ID") = Sheets(1).Cells(2, 1).Value

JSON("root")(1)("STATUS_RESPONSE")("RESULT")(1)("USER")("ID") = Sheets(1).Cells(2, 2).Value



myfile = Application.ActiveWorkbook.Path & "test.json"

Open myfile For Output As #1

Print #1, ConvertToJson(JSON, Whitespace:=2)

MsgBox ("Exported to JSON file")

Close #1



End Sub

Мой JSON

{

    "root": [{

        "STATUS_RESPONSE": {

            "STATUS": {

                "STATUS": {

                    "OWNER": "root"

                }

            },

            "REQ_ID": "00000",

            "RESULT": [{

                "USER": {

                    "BUSINESS_ID": "A",

                    "USER_NUMBER": "45",

                    "LANGUAGE": "F",

                    "ID" : "1525879763214789"

                }

            },

            {

                "USER_SESSION": {

                    "USER_ID": "0000001009",

                    "HELP_URL": "http://google.com"

                }

            },

            {

                "USER_ACCESS": {

                    "SERVICES_ROLE": "true",

                    "JOURNALLING": "true"



                }

            }]

        }

    }]

}