Separar un string en un array cada 3 caracteres

[pkj]

Si sabes cuantos elementos va a tener como máximo:
Dim Variable(numero) as string

Si quieres redimensionarla cada vez:
Dim Variable() as string

y en la sub que la cargas:


numero=int(len(cadena)/3)+1
ReDim Variable(numero) as string

Espero que te sirva.