dividire in due array un array

[Gio2011]

Ciao a tutti, correi dividere arr in 2 array. Una voce di arr in arr1 e quella dopo in arr2.
Scirvo questo ma mi da errore di runtime tipo non corrispondente sulla riga

arr1(y)=arr(x)

Dim arr, arr1, arr2, x, y
y=0
x=0
arr = split(RS2("CARATTERISTICHE"), vbCrLf)
for x = 0 to UBound(arr)
	if (x mod 2) = 0 then
		arr1(y)=arr(x)
	else
		arr2(y)=arr(x)
	end if
	y=y+1
next