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

[Grambo]

vedi come gestire gli array

[paoletta360]

Così sembra corretta l'assegnazione, prima però gli array andrebbero creati:
Dim arr1(lenght), arr2(lenght)

Se non conosci a priori il numero di elementi, ti consiglio di usare un Dictionary


Noto però un errore di semantica. dovresti usare due contatori per arr1 e arr2

for x = 0 to UBound(arr) 
    if (x mod 2) = 0 then 
       arr1(y1)=arr(x) 
       y1=y1+1
    else 
      arr2(y2)=arr(x) 
      y2=y2+1
   end if  
next

[Gio2011]

Ciao paoletta e grazie della risposta, avevo risolto esattamente come hai descritto te!Benissimo gli array li ho inizializzati a (99)