連想配列のKeyが重複時のエラー

【目的】
VBAで連想配列を使う際の、Keyが重複時のエラーを確認します。



【手順】
１．「標準モジュールの作成方法」の手順で、「MainModule」とい標準モジュールを作成。
２．「MainModule」を以下の様に入力。

Option Explicit

Sub main()
    Dim map As Object
    Set map = CreateObject("Scripting.Dictionary")
    
    map.Add "key1", "value1"
    map.Add "key2", "value2"
    map.Add "key3", "value3"
    map.Add "key3", "value4"
    
    Debug.Print (map("key1"))
    Debug.Print (map("key2"))
    Debug.Print (map("key3"))
End Sub

３．「関数を実行する方法」の手順で、main関数を実行。
４．以下の様に、エラーダイアログが出力されました。

以上です。