Dim modProfile As cmpModProfile.CModProfile Set modProfile = New cmpModProfile.CModProfile Debug.Print IsObject(modProfile) 'this returns true Dim result As Long result = ...