このキーは既にこのコレクションの要素に割り当てられています。(エラー番号：457)

---

Sub Sample1()
    Dim myList As New Collection
    myList.Add "tanaka", "S001"
    myList.Add "suzuki", "S001"
End Sub

Collectionオブジェクトに要素を追加するとき、すでに登録してあるKeyを指定したとき発生します。要素内でKeyはユニーク(唯一)でなければなりません。

Collectionオブジェクトを使うと、いわゆる"連想配列"のような使い方ができます。