如何使auto CAD vba的二维数组变成三维数组

如:dim arr1(5）as double
arr(0)=90
arr(1)=75
arr(2)=106
arr(3)=43
arr(4)=172
arr(5)=65
arr(6)=160
arr(7)=108
请教老师们，这是一个二维数组，想在1、3、5、7后分别增加z=0，变成三维数组，代码怎么写呢？

redim一下，注意要preserve，然后然后把2，5，，8，11元素设置成0就好了。有帮助请采纳谢谢！