Public Function InCollection(Coll As Collection, Key As Variant) As Boolean
    On Error GoTo err
    InCollection = True
    IsObject (Coll.Item(Key))
    Exit Function
err:
    InCollection = False
End Function