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

名前

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

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