add one dimension to array

hi

i want to add one dimension to an array
here is part of the code

sub Add_dimansion()

dim Y() as string
y()=split("1,2,3,4,5,6,7,8,9",",")        ' here i have one dimension array with 10 elements
for i=0 to Ubound(y)                     ' for i=0 to the last element number of the Y() array
Array2(0,i)=Y(i)                           'now i am just want to create a new 2 dimensional array(in this case the first element is 0 and only the second changed)  
next i
end sub

any way...i receive an error
any help?

thanks