You might need to determine whether a certain key is in a collection. The Collection object doesn’t provide a method to retrieve a key after you add an object to the collection. Instead of keeping a separate list of the keys in the collection, use this function:
Public Function IsKeyInCollection(col As Collection, sKey _ As String) As Boolean On Error Resume Next col (sKey) ' this will cause an error if key is not in collection IsKeyInCollection = (Err.Number = 0)End Function
You can easily modify this function to make it a property of a Collection class.