> なお使いたいオブジェクトはDictionaryです。

参照設定をはずした上で、

Dim dic As Scripting.Dictionary

Set dic = New Scripting.Dictionary

から、

Dim dic As Object

Set dic = CreateObject("Scripting.Dictionary")

に変更してみてください。


そもそも後者ですらエラーになってしまうようであれば、実行環境そのものに
問題がある可能性が高いので、ライブラリ( WSH )の更新や Windows Update の
適用を検討した方が良いかもしれません。