set oObject = Application.ActiveSceneRoot.AddGeometry("Cube","MeshSurface","MyCube")
myVertexArray = Array(2,3,34,56)
FindInvalidSubComponentIndex siVertexCluster, myVertexArray, oObject
Sub FindInvalidSubComponentIndex( in_ClusterType, in_IndexArray, in_Object)
        Dim l_invalidIndexArray, l_validArray, l_subComponent, l_bNotFound
        set l_subComponent = oObject.ActivePrimitive.Geometry.CreateSubComponent(in_ClusterType, in_IndexArray)
        l_validArray = l_subComponent.ElementArray
        for i = lbound(in_IndexArray) to ubound(in_IndexArray)
                l_bNotFound = TRUE
                for j = lbound(l_validArray) to ubound(l_validArray)
                        if in_IndexArray(i) = l_validArray(j) then
                                l_bNotFound = FALSE
                                Exit For
                        end if
                next
                if l_bNotFound then
                        Application.LogMessage in_IndexArray(i)
                end if                          
        next
End Sub