пытается конвертировать Excel в json файл

Question

У меня есть файл Excel, и я хочу преобразовать его json файл. Для этого я написал VBA коды

Dim excelRange As Range
Dim jsonItems As New Collection
Dim jsonDictionary As New Dictionary
Dim jsonFileObject As New Scripting.FileSystemObject
Dim jsonFileExport As TextStream
Dim a As Long
Dim cell As Variant

Set excelRange = Cells(1, 1).CurrentRegion


For a = 2 To excelRange.Rows.Count
    jsonDictionary("referance") = Cells(i, 1)
    jsonDictionary("engType") = "A5"
    jsonDictionary("refType") = Cells(i, 6)

    jsonItems.Add jsonDictionary
    Set jsonDictionary = Nothing
Next a


Dim o As String
o = InputBox("Enter Name you want to use")
Set jsonFileExport = jsonFileObject.CreateTextFile("C:\Users\ftk1187\Desktop\" & o & ".json", True)
jsonFileExport.WriteLine (JsonConverter.ConvertToJson(jsonItems, whiteSpace:=3))

Когда я запускаю свои коды, программа выдает мне объект требуется ошибка. Как я могу решить эту проблему?