problema Collection e array!!

[cipo002]

Con questo codice mi genero 3 array, volevo però crearne uno unico, visto che poi devo fare abbastanza conti sui dati!

Ciao e grazieeeeee




Dim aPoint

Dim ArraypointXY(2)

Dim CoordinateX(1000) As Double
Dim CoordinateY(1000) As Double
Dim CoordinateZ(1000) As Double

For i = 1 To hybridBodyPoints.HybridShapes.Count
Set aPoint = hybridBodyPoints.HybridShapes.Item(i)
aPoint.getCoordinates ArraypointXY

CoordinateX(i) = ArraypointXY(1)
CoordinateY(i) = ArraypointXY(2)
CoordinateZ(i) = ArraypointXY(0)

Next i