Decompose in points a Element

Hi everybody ,

Anybody Knows another way to descompose in points a Element ??? , actually I'm using this :

           Dim ee As ElementEnumerator
           Set ee = ActiveModelReference.Scan(esc)
           Do While ee.MoveNext
                Set elementFence = ee.Current
                vertexArrayFence = elementFence.ConstructVertexList(0.1)


But I see that the function ConstructVertexList is extremely low , any idea ???

Thanks !!!