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