The Find method of a Decision Support Objects (DSO) collection locates an item in a collection. This method does not apply to CustomProperties collections.
bIsThere = colCollection.Find(vKey)
Use the following code to check for the existence of a partition named “EastCoast” in the MDStores collection of partitions for a cube:
' Assume the existence of an object cubCube
' of ClassType clsCube
Dim bDoesItExist As Boolean
bDoesItExist = cubCube.MDStores.Find("EastCoast")