vba-tools / vba-dictionary Goto Github PK

i know the stated intent is for a drop-in replacement of Scripting.dictionary.

but i think there would be value in adding some "bonus features"
like sorted outputs..

ie. if there was a Dict.sortedKeys option i'm sure it would get used.

Hi there, I'm very new to VBa and think this dictionary implementation is VERY useful. My problem is that I don't know how to import the dictionary class and make it work, I keep getting:

Compile error:
User-defined type not defined

Could you please show me how to use the dictionary starting from how to import the class file properly on mac?

Excel O365 VBA
Imported Jsonconverter.bas, Imported Dictionary.cls
Reference add for MS Runtime scripting

Can see data in my .ResponseText, but as soon as the program calls "Set Json = JsonConverter.ParseJson(http.responseText)", I get the compile error.

My first go around with parsing JSON data... do I need to do anything with the Dictionary other than importing it? Is there ANY reference to it in the main sub() of my script? Code is below. Error Function is below that and http.responsetext is below that

Sure appreciate the help on the (i'm sure) very simple fix to my error. Learning a lot with this 1st time parsing project :=)

Sub getdata()
Dim inJson As Object
Dim ws As Worksheet: Set ws = Worksheets("Sheet1")
Dim http As Object
Set http = CreateObject("WinHttp.WinHttprequest.5.1")
Url = "https://www.printavo.com/api/v1/orders?email=info%40magsmonograms.com&token=UNlIykfMAuTEaghEtR0KGg" & "&query=1005"
http.Open "Get", Url, False
http.send
Set Json = JsonConverter.ParseJson(http.responseText)
Stop
.
.
.
End Sub

===.> error get thrown and highlights the first "Set" statement after the : (never gets to the Stop)

Public Function ParseJson(ByVal JsonString As String) As Object
Stop
Dim json_Index As Long
json_Index = 1

' Remove vbCr, vbLf, and vbTab from json_String
JsonString = VBA.Replace(VBA.Replace(VBA.Replace(JsonString, VBA.vbCr, ""), VBA.vbLf, ""), VBA.vbTab, "")

json_SkipSpaces JsonString, json_Index
Select Case VBA.Mid$(JsonString, json_Index, 1)
Case "{"
    **_Set ParseJson = json_ParseObject(JsonString, json_Index)_**
Case "["
    Set ParseJson = json_ParseArray(JsonString, json_Index)
Case Else
    ' Error: Invalid JSON string
    Err.Raise 10001, "JSONConverter", json_ParseErrorMessage(JsonString, json_Index, "Expecting '{' or '['")
End Select

End Function

/////\ -- FYI
http.response.text = ? http.responsetext
{"meta":{"page":1,"per_page":25,"total_count":531,"total_pages":22},"data":[{"sales_tax":7.5,"total_untaxed":0.0,"discount_as_percentage":false,"discount":0.0,"customer_id":4902516,"user_id":37796,"orderstatus_id":185896,"public_hash":"a995e8b4d28ae3a530f53b0a62430e69","production_notes":"","order_nickname":"Augusta Shirts","approved":false,"approved_name":null,"visual_id":20535,"stats":{"paid":false},"notes":"","created_at":"2021-08-26T16:19:16.309-04:00","updated_at":"2021-08-29T15:09:56.930-04:00","due_date":"2021-08-26T10:00:00.000-04:00","order_total":71.0575,"order_subtotal":66.1,"payment_term_id":null,"delivery_method_id":null,"visual_po_number":"","customer":{"full_name":"James Wilson","first_name":"James","last_name":"Wilson","company":"","email":"[email protected]","customer_id":0},"order_addresses_attributes":[{"id":20803016,"name":"Customer Billing","customer_name":"James Wilson","company_name":"","address1":"","address2":"","city":"","state":"","state_iso":null,"country":"US","country_iso":
"US","zip":""},{"id":20803017,"name":"Customer Shipping","customer_name":"James Wilson","company_name":"","address1":"","address2":"","city":"","state":"","state_iso":null,"country":"US","country_iso":"US","zip":""}],"contractor_profile":null,"expenses":[],"orderstatus":{"name":"Quote","color":"#47A0D9"},"user":{"name":"Chic"},"lineitems_attributes":[{"id":28200912,"style_description":"Augusta Sportswear - Adult Attain Wicking Short-Sleeve T-Shirt","taxable":true,"style_number":"2790","color":"Black","size_other":null,"size_xs":null,"size_s":null,"size_m":null,"size_l":null,"size_xl":null,"size_2xl":null,"size_3xl":3,"total_quantities":3,"goods_status":"","category":" 3-Apparel","unit_cost":15.66},{"id":28200913,"style_description":"Augusta Sportswear - Attain Color Secure® Performance Long Sleeve T-Shirt","taxable":true,"style_number":"2795","color":"Black","size_other":null,"size_xs":null,"size_s":null,"size_m":null,"size_l":null,"size_xl":null,"size_2xl":null,"size_3xl":1,"total_quantities":1,"goods_stat
us":"","category":" 3-Apparel","unit_cost":19.1},{"id":28200914,"style_description":"Sherriff","taxable":true,"style_number":"","color":"","size_other":1,"size_xs":null,"size_s":null,"size_m":null,"size_l":null,"size_xl":null,"size_2xl":null,"size_3xl":null,"total_quantities":1,"goods_status":"","category":" 2-Transfer Services","unit_cost":0.01},{"id":28200915,"style_description":"Franklin Badge","taxable":true,"style_number":"","color":"","size_other":1,"size_xs":null,"size_s":null,"size_m":null,"size_l":null,"size_xl":null,"size_2xl":null,"size_3xl":null,"total_quantities":1,"goods_status":"","category":" 1-Embroidery","unit_cost":0.01},{"id":28200916,"style_description":"","taxable":false,"style_number":"","color":"","size_other":null,"size_xs":null,"size_s":null,"size_m":null,"size_l":null,"size_xl":null,"size_2xl":null,"size_3xl":null,"total_quantities":0,"goods_status":"","category":"0-Convenience fee if paying by credit card","unit_cost":0.01}],"order_fees_attributes":[],"id":7161334,"customer_due_d
ate":"2021-08-26T00:00:00.000-04:00","custom_created_at":"2021-08-26T00:00:00.000-04:00","invoice_date":"2021-08-26T00:00:00.000-04:00","payment_due_date":"2021-08-26T00:00:00.000-04:00","formatted_invoice_date":"08/26/2021","formatted_customer_due_date":"08/26/2021","formatted_payment_due_date":"08/26/2021","formatted_custom_created_at_date":"08/26/2021","url":"https://www.printavo.com/invoices/7161334","amount_paid":0.0,"amount_outstanding":71.0575,"public_url":"https://www.printavo.com/invoice/a995e8b4d28ae3a530f53b0a62430e69","pdf":"https://www.printavo.com/invoice/a995e8b4d28ae3a530f53b0a62430e69.pdf","workorder":"https://www.printavo.com/invoices/7161334/workorder","packaging_slip":"https://www.printavo.com/invoices/7161334/packing_slip"},{"sales_tax":0.0,"total_untaxed":0.0,"discount_as_percentage":false,"discount":0.0,"customer_id":4352599,"user_id":39097,"orderstatus_id":196994,"public_hash":"0cc5f3192dc20c2c59b0c46d75d88ea4","production_notes":"

I'm having a little trouble installing this in a fresh document. Here's what I tried:

(1) In Excel 2011 for Mac, if I right-click on "Class Modules", choose "Import File ...", and select Dictionary.cls, I get this error:

"The form class contained in '[my path]:Dictionary.cls' is not supported in VBA. The file can't be loaded."

(2) If I create a new Class Module, name it Dictionary, and paste the contents of Dictionary.cls in, then the class sort of works, but assignment is broken:

Dim test As New Dictionary
' this works:
test.Add "Bar", "Baz"
' this doesn't work:
test("Key") = "Foo"
'=> Run-time error '438': Object doesn't support this property or method

(3) If I open an existing project that already has this installed (like VBA-Web - blank.xslm), the code above does work. So I know that Excel 2011 is compatible -- I must just be doing something wrong during the install.

Many thanks -- VBA-tools looks like some great work, and super helpful if I can just get it working. :)

Thanks,
Jack

Hi, thanks for making this dictionary replacement for VBA. I'm having trouble getting it to work though. Currently I'm getting a syntax error when I try to define a dictionary. No error codes with the syntax error, but it points me to the following lines with the second line (Attribute Count.VB... ) highlighted:

Public Property Get Count() As Long
Attribute Count.VB_Description = "Get the number of items in the dictionary.\n"
#If Mac Or Not UseScriptingDictionaryIfAvailable Then
    Count = dict_pKeyValues.Count
#Else
    Count = dict_pDictionary.Count
#End If
End Property

Is this a known issue or do you have any suggestions on tracing back the issue?
I'm using Excel 2016 for mac, OSX 10.15.7

Thanks!

Edit: code block formatting

Hi Tim,
I've just downloaded the latest VBA-Dictionary-master.zip.

1. When I open VBA-Dictionary Specs.xlsm and click on Run Specs, I get Error 5 on this line

    dict_pDictionary.CompareMode = Value

in Public Property Let CompareMode. Here's the call stack:

At this point dict_pDictionary.Count is 1.

So I tried stepping through the code and found something that seems strange. In AllSpecs(), at the first call to CreateDirectionary(UseNative), with UseNative=False:

Public Function CreateDictionary(Optional UseNative As Boolean = False) As Object
    If UseNative Then
        Set CreateDictionary = CreateObject("Scripting.Dictionary")
    Else
        Set CreateDictionary = New Dictionary
    End If
End Function

2. If UseNative is true, this returns a Scripting.Dictionary. If UseNative is False, it returns a new (VBA-)Dictionary. But the compiler constant UseScriptingDictionaryIfAvailable is True, which means that (in Windows) VBA-Dictionary uses a Scripting.Dictionary - IOW, it appears, your test code doesn't test the class.

To overcome this I set UseScriptingDictionaryIfAvailable=False. This leads to compile errors, starting with an undeclared variable Key in dict_AddKeyValue().

Windows 7, Excel 2010

Over to you!

John

Me again. I'm not trying to persecute you, just testing VBA-Dictionary against Scripting.Dictionary to see if it'll do what I need.

Scripting.Dictionary's behaviour when passed boolean True or False as a key is pretty stupid. The key is stored as a boolean (see Typename() calls in code below) but compared as a number so -1 will collide with True and 0 with False. Similar snafu with dates, btw. I think this a bug, given that the documentation suggests the key can be of any type.

VBA-Dictionary by contrast handles as one would expect: True and -1 are different, as are False and 0. I haven't tested it with date keys.

Sub T4()
    Dim SD As Object
    Dim VD As Dictionary
    Dim K As Variant

    Set SD = CreateObject("Scripting.Dictionary")
    Set VD = New Dictionary

    SD.Add True, "Boolean True"
    SD.Add False, "Boolean False"
    On Error Resume Next
        SD.Add -1, "Minus One"
        Debug.Print "SD: " & Err.Number ' Error 457
        Err.Clear
        SD.Add 0, "Zero"
        Debug.Print "SD: " & Err.Number ' Error 457
        Err.Clear
    On Error GoTo 0
    For Each K In SD.Keys
          Debug.Print K, TypeName(K), SD(K) ' Prints as expected
    Next

    VD.Add True, "Boolean True"
    VD.Add False, "Boolean False"
    On Error Resume Next
        VD.Add -1, "Minus One"
        Debug.Print "VD: " & Err.Number ' No error
        Err.Clear
        VD.Add 0, "Zero"
        Debug.Print "VD: " & Err.Number ' No error
        Err.Clear
    On Error GoTo 0
    For Each K In VD.Keys
        Debug.Print K, TypeName(K), VD(K) 'Both items have the same value.
    Next
End Sub

Thanks a lot for the dictionary implementation! You're a life saver.

Found a small typo in your example:

' (Works exactly like Scripting.Dictionary)
Dim Dict As New Dictionary
Dict.CompareMode = CompareMethods.TextCompare

...should probably be:

' (Works exactly like Scripting.Dictionary)
Dim Dict As New Dictionary
Dict.CompareMode = CompareMethod.TextCompare

(removed "s" in CompareMethod)

Sub T2()
Dim SD As Object
Dim VD As Dictionary
Dim C As Collection
Dim V As Variant
Dim Ar(1) As Long
Const MSG = "This item's key is a collection"

Set SD = CreateObject("Scripting.Dictionary")
Set VD = New Dictionary

Set C = New Collection
C.Add "First"
C.Add "Second"

SD.Add "Ocelot", "Cat"
SD.Add C, MSG
Debug.Assert SD(C) = MSG

VD.Add "Ocelot", "Cat"
VD.Add C, MSG 'Error 457
End Sub

Hi all, got a bit of a pickle! I've been tasked with making a script that can run on both Windows and MacOS, however part of the script depends on Microsoft Scripting Runtime. My search across the internet has lead me here, but I'm still getting issues.

What the script should do:
Look at B61 and downwards to check for duplicates, when duplicates are found merge the rows.

The script I have at the moment runs perfectly fine with MSR, but doesn't work with the Dictionary imported from GitHub. It's located here:
https://pastebin.com/36tAvLaa

Specifically, Debug points to Line 28: For Each itm In dc.

I am a completely novice scripter: This script was actually formed by me prompting ChatGPT until I got something usable, and as mentioned, it works perfectly fine in Windows with Microsoft Scripting Runtime. I hope I'll be able to get it running with the Dictionary here!

Thanks!

Hi!

Thank you for the code, it is great and almost worked perfectly for me! I was able to use it to generate a list in a workbook A. It is a very small one, actually just some 10 lines and 5 columns.

Later on I programmed another workbook B to simply open the workbook A, go through all lines and import it. It is also a smart database. However, it often crushes after importing it and the "Out of memory" message appears. Sometimes it does not crush, then I go to VBA and try to open the Dictionary class module. When I do that the message Out of memory appears again. I can then do any other change in the rest of the project, but not this.

Weird thing, I don't know if it has happened to someone else. Restarted computer and the same issue happened again despite having almost no other programm opened.

Hi

I want to add the items in the collection and then use them in the dictionary to make one json string
see the code:

Option Compare Database
Option Explicit
Private Sub Command0_Click()
Dim foo As New Dictionary
Set foo = New Dictionary
Dim hoo As New Collection
Set hoo = New Collection
    
    With foo
        .Add "Customer Name", Me.txtchris   'No key. This item can only be retrieved by index.
        .Add "Address", Me.txtAddress  'Key given. Can be retrieved by key or index.
        .Add "Location", Noor
          
    End With
    
    Dim member As Variant
    For Each member In foo
       
    Next

End Sub

Example:

{"a":"aa",
"b":"bb"
"c":[
{"d":"dd",
"e":"ee",
"f":[
1,
2,
]
"k":"kk",
"l":"l"
"m":"mm"
}

I get Synax errors on lines:

' 32-bit Mac
Private Declare Function utc_popen Lib "libc.dylib" Alias "popen" _
(ByVal utc_Command As String, ByVal utc_Mode As String) As Long
Private Declare Function utc_pclose Lib "libc.dylib" Alias "pclose" _
(ByVal utc_File As Long) As Long
Private Declare Function utc_fread Lib "libc.dylib" Alias "fread" _
(ByVal utc_Buffer As String, ByVal utc_Size As Long, ByVal utc_Number As Long, ByVal utc_File As Long) As Long
Private Declare Function utc_feof Lib "libc.dylib" Alias "feof" _
(ByVal utc_File As Long) As Long

AND

Private Declare Function utc_GetTimeZoneInformation Lib "kernel32" Alias "GetTimeZoneInformation" _
(utc_lpTimeZoneInformation As utc_TIME_ZONE_INFORMATION) As Long
Private Declare Function utc_SystemTimeToTzSpecificLocalTime Lib "kernel32" Alias "SystemTimeToTzSpecificLocalTime" _
(utc_lpTimeZoneInformation As utc_TIME_ZONE_INFORMATION, utc_lpUniversalTime As utc_SYSTEMTIME, utc_lpLocalTime As utc_SYSTEMTIME) As Long
Private Declare Function utc_TzSpecificLocalTimeToSystemTime Lib "kernel32" Alias "TzSpecificLocalTimeToSystemTime" _
(utc_lpTimeZoneInformation As utc_TIME_ZONE_INFORMATION, utc_lpLocalTime As utc_SYSTEMTIME, utc_lpUniversalTime As utc_SYSTEMTIME) As Long

Are these lines that can be deleted since I am on PC or......?

observe the following comparison:

Sub implementForEach()
    Dim x As New Dictionary
    Dim y As New Scripting.Dictionary

    x.Add "a", 1
    y.Add "a", 1

    Dim z As Variant

    ' Run-time error '438': Object doesn't support this property or method
    For Each z In x
        Debug.Print z
    Next

    For Each z In y
        Debug.Print z 'prints the key
    Next

End Sub

The current implementation provides a way to For Each using .Keys and .Items, but not with the dictionary object itself (as Scripting.Dictionary allows).

Given a dictionary with multiple object keys, if I remove one of these keys, then the values associated with the object keys added after the removed one "shift down", with the value of the object key added immediately after the removed key becoming Empty. See:

Public Sub DictionaryTest()
    Dim dict As New Dictionary
    Dim key1 As New Dictionary 'or any other initialized object
    Dim key2 As New Dictionary 'or any other initialized object
    Dim key3 As New Dictionary 'or any other initialized object
    dict(key1) = 1
    dict(key2) = 2
    dict(key3) = 3
    
    Debug.Print dict(key3) = 3 'prints True
    Debug.Print dict(key3) = 2 'prints False
    Debug.Print dict(key2) = 2 'prints True
    Debug.Print IsEmpty(dict(key2)) 'prints False
    
    dict.Remove key1
    
    Debug.Print dict(key3) = 3 'prints False!
    Debug.Print dict(key3) = 2 'prints True!
    Debug.Print dict(key2) = 2 'prints False!
    Debug.Print IsEmpty(dict(key2)) 'prints True!
End Sub

I think that this is because of how dictionaries internally map object keys to a string representation based on their index in dict_pObjectKeys. When one object is removed from this collection, the indices of the other objects automatically shift down, changing their string representations and resulting in this bug.

Hi, I'm new to VBA and I'm trying to load a macro on my Mac Excel that uses Scripting.Dictionary, and I'm trying to use VBA-Dictionary as a replacement for it, but I'm running into some errors.

Importing the Dictionary.cls file throws an error saying that it's not supported in VBE and can't be loaded:

And I was trying to put it into a module and run it, but then that throws a compile error:

Any idea how I can load VBA-Dictionary? I'm on Excel for Mac 2011 (v14.5.1), would love any help.

Hi. This isn't really an issue, but I think it's still important. What is the performance of this dictionary? I know that VBA's dictionary uses a hashtable internally. Does this class have similar performance?

There is a simplified snippet from a project with Scripting.Dictionary, which works fine:

Sub testDict()
    
    Dim dict As Variant
    addValue dict
    
End Sub

Sub addValue(dict)
    
    Dim key As String
    
    Set dict = CreateObject("Scripting.Dictionary")
    createKey key
    dict(key) = "value"
    
End Sub

Sub createKey(key)
    
    key = "a"
    
End Sub

There is the same snippet with VBA-Dictionary, and it throws an exception in Property Let Item(): "Invalid procedure call or argument" with #Const UseScriptingDictionaryIfAvailable = True or "Variable uses an Automation type not supported in Visual Basic" with #Const UseScriptingDictionaryIfAvailable = False

Sub testDict()
    
    Dim dict As Variant
    addValue dict
    
End Sub

Sub addValue(dict)
    
    Dim key As String
    
    Set dict = New Dictionary
    createKey key
    dict(key) = "value"
    
End Sub

Sub createKey(key)
    
    key = "a"
    
End Sub

Note for commenters: I do not need to change anything in the project, more of that, the issue can be fixed by Dim key As Variant. The snippet is simplified as much as possible, also subs are used instead of functions because they returns data via several variables byref in the project. It works with no issues with Scripting.Dictionary, now I tried VBA-Dictionary and found some difference, that is why I reported here.

hi Mr. tim , i've a question, how i create a json request with child nodes using dictionary or collection, i'll trying following the examples unsuccessfully, please help me, regards

Use compiler flags to use native Scripting.Dictionary internally when running on Windows

cnt = 0
For Each Key in dict.Keys  
     data(cnt) = dict(Key)
     cnt = cnt + 1  
Next

The above works

For i = 0 to dict.Count -1
    data(i) = dict.Items(i)
Next i

This above not work.

Property let procedure not defined and property get procedure did not return an object--run time error 451

Empty Scripting.Dictionary .Items returns empty array of type Variant/Variant in VBA, I use the array later to ReDim Preserve it and assign objects to it's elements.
Empty VBA-Dictionary .Items returns empty array of type Variant/String, it makes impossible to assign an object to it after ReDim.

If I declare a dictionary from another module and use it in a function of another module then when trying to read a key using myDic("myKey") while in the debugger the keys are shown, the value returned is "Empty"

It works as expected on 32 bits version of excel but not on 64 bits

If I remove the dictionary module to use the default windows dictionary it works fine again

Hi, the default functionality for Scripting.Dictionary is the item function. But your dictionary does not do this for me. My key is a string and my item is a custom object. I am testing your dictionary on my Windows 10 machine. Excel 2016 version 1906. When I do dict.item(key), it works, though.

I have two dictoinary object, mydict and mydict2. I have customer email and customer address to store, mydict stores email as key, address as value. mydict2 store address as key, email as value when mydict.exist(a record). I look at locals window. the records are well store inside mydict and mydict2. and it is accessible for mydict, but not for mydict2.

when i debug mydict with debug.print

   Debug.Print "email : " & mydict2(Key)
   Debug.Print "address : " & Key
next key```

output:
```email : 
address : ```

Sub T1()
Dim SD As Object
Dim VD As Dictionary

Set SD = CreateObject("Scripting.Dictionary")
Set VD = New Dictionary

SD.Add 1, "Numeral 1"
SD.Add "1", "String 1"

VD.Add 1, "Numeral 1"
VD.Add "1", "String 1" 'Error 457
End Sub

I've tried several things, and I get various error messages.

1. Import the cls file
   results in: It's imported under modules. Using it gives Compile error: Expected: end of statement at VERSION 1.0 CLASS
   removing that results in: Compile error: Invalid outside procedure at BEGIN
   removing that block results in: Compile error: A module is not a valid type at my code Dim dict As New Dictionary

2. Create a new class module by right click the project (root), then Insert -> Class Module, copy the code of Dictionary.cls in there, rename the class module to Dictionary
   results in: Compile error: Expected: end of statement at VERSION 1.0 CLASS
   removing that results in: Compile error: Invalid outside procedure at BEGIN
   removing that block results in: Compile error: Syntax error at Attribute VB_Name = "Dictionary"
   removing that block results in Run-time error 438: Object doesn't support this property or method at my code dict("a") = "b"

3. Run VBA-Dictionary - Specs.xlsm
   results in: Compile error: The code in this project must be updated for use on 64-bit systems. Please review and update Declare statements and then mark them with the PtrSafe attribute.

First of all let me thank you for your tool. It has helped me quite a bit to request and receive JSON. However I am having an issue that I hope you can help with. I read in another blog of yours that you currently due not have any code to parse JSON. However you have neatly put the JSON response in a dictionary that is embedded in a collection within an object. Specifically the structure looks like this.
Response - Data - Item 1 - pDictionary - Item 1. What I cannot figure out is the required code to get to the value of the Keys within the pDictionary. Also not sure how I will iterate through the Items within Data to them grab the key values within pDictionary. If you can help me with some iteration logic or the code needed to view the key values it would be great. Thanks again.

Executing advanced example. Run-time error '424' Issue appears on

Dim Values As Variant
ReDim Values(Parsed("values").Count, 3)

from the advanced example

The Spec.xlsx show all "pass"

Running Windows Microsoft® Excel® for Microsoft 365 MSO (Version 2302 Build 16.0.16130.20806) 64-bit

I was running the Specs.xlsm sheet in Excel 2010 64bit (14.0.7015.1000) on Windows 7 and ran into the warning about the Declare Functions needing the PtrSafe attribute.

Here is the change for the PreciseTimer class that fixes this issue:

Option Explicit

#If Mac Then
Private pStartTime As Single
#Else
#If VBA7 Then
Private Declare PtrSafe Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As LARGE_INTEGER) As Long
Private Declare PtrSafe Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As LARGE_INTEGER) As Long
#Else
Private Declare Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As LARGE_INTEGER) As Long
Private Declare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As LARGE_INTEGER) As Long
#End If

Is this class expected to work on Microsoft Office 2016 on MacOS ?

Are there any special instructions to use VBA class files in this environment?

Thank you,

-Mark

Using VBA, I am trying to convert a string representation of JSON into an object of dictionary using VBA-Dictionary library since VBA-Dictionary works on both mac and windows. However, I can't seem to find a function that can be used for this. VBA-JSON provides ParseJson function that can take string as input and converts it to a JSON object. I need to find something similar in VBA-Dictionary.
Can someone please help me with this?