Como cargar matriz

[sitiom]

Hola,
tengo un problemilla al guardar unos datos en una matriz. En principio tengo una array con datos, y quería guardar en otro array, pero cada cuatro lugares. Pongo un ejemplo para aclarar:
Primer array--> 324 4234 4234 432444 333 444 3333 222 111 2 222
El array que quiero conseguir es el anterior pero cada cuatro lugares--> 324 333 111

En principio, recorro el array con un bucle for step 4, pero no sé como ir guardándolo en la matriz que quiero crear. Os agradecería que me echárais una mano.
gracias y un saludo

[pkj]

Creo que así te puede servir:

Código vb:

Dim NuevoArray() As Long ' o del tipo según sea el primer array (ViejoArray)
Dim F As Long
ReDim NuevoArray(0)
For F=0 To Ubound(ViejoArray) Step 4
  NuevoArray(Ubound(NuevoArray))=ViejoArray(F)
  ReDim Preserve NuevoArray(Ubound(NuevoArray)+1)
Next F
 

El NuevoArray contendrá un elemento más de la cuenta que estará vacío, de modo que para recorrerlo usa:

Código vb:

For F=0 To Ubound(NuevoArray)-1
  MsgBox NuevoArray(F)
Next F
 

Que se dé bien.