Function PrintDict(Dict as Dictionary, Optional ByVal Stack as String = "")
  For Each Key In Dict.Keys()
    If TypeOf Dict(Key) Is Dictionary Then
      Debug.Print Stack & Key & ":"
      PrintDict Dict(Key), Stack & "  "
    Else
      Debug.Print Stack & Key & ": " & Dict(Key)
    End If
  Next
End Function