Вывод определенной последовательности эл-тов массива

[0.5]

Подскажите пожалуйста как вывести на textbox эл-ты массива в определенной последовательности - например
a1,a5,a2,6,a3.a7,a4,a8,a5,a9,a10 используя оператор цикла do until...loop.

[alibek]

Э... А так не пойдет?

Код: Выделить всё

For I = 1 To 10
  Debug.Print a(Choose(I, 1,5,2,6...))
Next I

[A.A.Z.]

А если с Do Until ... Loop -

Код: Выделить всё

I = 1
Do Until I = 10
  Debug.Print a(Choose(I, 1,5,2,6...))
I = I + 1
Loop

[0.5]

Спасибо за ответы