set oObject = Application.ActiveSceneRoot.AddGeometry("Cube","MeshSurface","MyCube")
set oSubComponent = oObject.ActivePrimitive.Geometry.CreateSubComponent(siVertexCluster, Array(3,4,5))
Application.LogMessage oSubComponent.Type
' Expected result:
'INFO : pntSubComponent