Separar un string en un array cada 3 caracteres

[pkj]

Como a mi no me asusta usar "GoTo" te propongo esta solución:

contador=0
Repite:
if len(cadena)>=3 then
variable(contador)=left$(cadena,3)
cadena=right$(cadena,len(cadena)-3)
contador=contador+1
goto repite
else
if cadena<>"" then variable(contador)=cadena
endif

Saludos