Creo que así te puede servir:
Código vb:
Ver originalDim 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:
Ver originalFor F=0 To Ubound(NuevoArray)-1
MsgBox NuevoArray(F)
Next F
Que se dé bien.