How do I Debug Print keys and values in dictionary using VBA?

Question

I am using vba and have written certain values into the dictionary. However, I would like to see if information has been passed into the dictionary correctly. Hence, is it possible to debug.print keys and values in a dictionary to the immediate window?

I was thinking of this:

debug.print DicTemp.Items

Thank you!

Answer 1

Public Sub TestMe()

    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    dict.Add "first", 30
    dict.Add "second", 40
    dict.Add "third", 100

    Dim key As Variant
    For Each key In dict.Keys
        Debug.Print key, dict(key)
    Next key

End Sub

It prints:

first          30 
second         40 
third          100 

Answer 2

Loop through each dictionary key, and debug print:

Dim key As Variant
For Each key In dict.Keys
    Debug.Print key, dict(key)
Next key