コレクション内にキーが既に存在しているかの判定について

---

コレクションにキーを指定して追加を行うときに
すでにあるキーを追加しようとするとエラーが発生するため
「２．」の判定を入れたいのですがコレクション内にキーが既に存在しているか
どうかの判定の方法がわかりません。

Private Sub Command1_Click()

Dim colMine As Collection

Set colMine = New Collection

'１．コレクションに「鎌倉幕府」をキーに追加
colMine.Add "源頼朝", "鎌倉幕府"

'２．キーに「鎌倉幕府」があれば削除。（ここの判定をどのようにすればよいか分かりません）
colMine.Remove "鎌倉幕府"

'３．キーを指定してコレクションに追加
colMine.Add "源頼朝", "鎌倉幕府"

MsgBox colMine(1)

End Sub

よろしくお願いします。（VB6.0）

編集 削除

---

On Error Gotoでエラートラップをしてから
とりあえずAddしてみてエラーであれば重複
したと考えればいいのでは？

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。