VBAでDictionaryにAddしようとするとキーの重複エラーとなる

Question

VBAでDictionaryにAddしようとしたときの重複エラーを解決したい

Dictionary型の変数を定義し、
#Addメソッドを使って下記の例のような処理を書いた際に重複エラーとなってしまいます。

当方実行環境がmacOSのため、Dictionaryクラスは以下からclsファイルをダウンロードしプロジェクトにインポートしております。
https://github.com/VBA-tools/VBA-Dictionary

下記に詳細を記載致しますので、お力添えいただけないでしょうか。

ソースコード

Function hoge()
  'Dictionary型の変数宣言
  Dim dic As New Dictionary
  
  '宣言した変数に値追加
  dic.Add "あいう", "かきくけこ"
  dic.Add "アイウ", "カキクケコ"
End Function

エラー内容

おそらく「あいう」と「アイウ」が同じ文字列と判定されてしまっているようで、
下記のようなエラーとなります。

実行時エラー '457':

このキーはすでにこのコレクションの要素に割り当てられています。

試したこと

以下のようにプロパティをセットし、完全一致でキーの値を検索するようにしました。

Function hoge()
  Dim dic As New Dictionary
  dic.CompareMode = BinaryCompare '⇐追加
  
  dic.Add "あいう", "かきくけこ"
  dic.Add "アイウ", "カキクケコ"
End Function

ただ、CompareModeはデフォルトがBinaryModeであること、
CompareModeを変更しても#Addには影響が無いとの情報から挙動は変わりありませんでした。

補足情報（FW/ツールのバージョンなど）

OS: macOS Catalina
Excelバージョン: Microsoft Excel 2019 for Mac

Answer 1

そのクラスのソースを見た感じ、Macだと内部的にCollectionオブジェクト、Windowsの場合はScripting.Dictionaryオブジェクトが使用されるようです。

VBAのCollectionの罠 から引用すると、

Collectionはキーを指定して値を追加するMap的な使い方もできるが、この「キー」の一致判定に癖がある。どうも全角半角、大文字小文字、ひらがなカタカナの差異はすべて無視してくれるようだ。

という事らしいです。
キーを元にハッシュ関数なりを通して独自のキー文字列を生成して、それを使用して追加するみたいな事をしないとダメかも？（それかCollectionオブジェクトを独自に作るor代替品を探すか）

Comments

[uw9623]

ご回答ありがとうございます。

内部でCollectionを使っているとは盲点でした...
ご提示頂いた方法等も含めて対応方針検討致します。

ありがとうございました。