API - search for custom properties

I have made a routine in VBA:

Public Function CustPropFound(CustProp As Variant, model As ModelDoc2) As Boolean Dim numCustProps As Long Dim Names As Variant

Names = model.GetCustomInfoNames2("") numConfigs = model.GetCustomInfoCount2("") i = 0 CustPropFound = False While i < numConfigs And Not CustPropFound If model.CustomInfo2("", Names(i)) = CustProp Then CustPropFound = True End If i = i + 1 Wend End Function

But somehow it can't detect when the Names(i) = CustProp. When looking at the variables they look the same...

Is another way of comparing required?

John