diff --git a/JsonConverter.bas b/JsonConverter.bas
index 876b865..3249e0c 100644
--- a/JsonConverter.bas
+++ b/JsonConverter.bas
@@ -458,11 +458,16 @@ End Function
 ' Private Functions
 ' ============================================= '
 
-Private Function json_ParseObject(json_String As String, ByRef json_Index As Long) As Dictionary
+Private Function json_ParseObject(json_String As String, ByRef json_Index As Long) As Object
     Dim json_Key As String
     Dim json_NextChar As String
 
+#If Mac Then
     Set json_ParseObject = New Dictionary
+#else
+    Set json_ParseObject = CreateObject("Scripting.Dictionary")
+#end if
+
     json_SkipSpaces json_String, json_Index
     If VBA.Mid$(json_String, json_Index, 1) <> "{" Then
         Err.Raise 10001, "JSONConverter", json_ParseErrorMessage(json_String, json_Index, "Expecting '{'")