jiirii様
jsonについては，実績のあるもので試す(例えば参照先のサイトにあるテスト用JSONなど)ことができれば，
問題のさらなる切り分けができると考えた次第です．
もし，簡単なJSONでためす機会があれば，下記のように直接文字列として入れてみて，
どうなるか確認するのが良いかと思います．
（実例があるので）
Set objJson = parser.Parse("[{""hoge"":{ ""piyo"":{""fugapiyo"":[{""foo"":1},{""bar"":2}]}, ""fuga"":[3,4], ""hogepiyo"":[5,6], ""hogefuga"":7 }}]")
上記は下記サイトから参照しています．
https://outofmem.hatenablog.com/entry/2013/10/08/063340
参考になれば幸いです．