[Resolvido]Usar for i=a to b com varias caixas de texto.

Boas companheiros
Tenho estado a pesquisar aqui no forum e no google mas nao encontro como resolver meu problema...
Estou usando a função for que ja percebi como funciona. mas precisava adicionar algo.
Tentei criar uma formula mas nao esta certa. nao estou a perceber como fazer uma variavel.

Tenho:

Caixa de texto= Me.texto0 'onde coloco um numero de 13 algarismos (ou menos)
vou ter mais 13 caixas de texto =Me.texto1, Me.texto2,Me.texto3.......
Um botão.
Preciso que ao clicar no botâo o access coloque em cada caixa de texto um algarismo na ordem

exemplo         Me.texto0=2546589851439

Me.texto1=2 Me.texto2=5 Me.texto3=4 Me.texto4=6

Sendo que o ideal seria poder configurar quantos algarismos ele iria colocar em cada caixa pois no fundo
so preciso que ele separe o numero em 4 partes.

254 6589 85143 9 ---- 13 algarismos
1ºgrupo=pais
2ºgrupo=empresa
3ªgrupo=produto
4groupo=codigo verificador

sendo que os grupos 2 e 3 podem variar de tamanho se usarmos 13 algarismos ou menos.

254 68 54 9 ---- 8 algarismos
254 6 854 9 ---- 8 algarismos
254 685 4 9 ---- 8 algarismos

mas por norma usa-se 13 algarismos e é a partir de esse que preciso de ajuda.

Unica soluçao que tenho por enquanto  é:

Private Sub Comando13_Click()
Dim i, j As Long, txt0 As String
txt0 = Me.Texto1
j = 1
Me.Texto2 = Mid(txt0, j, 1)
j = j + 1
Me.Texto3 = Mid(txt0, j, 1)
j = j + 1
Me.Texto4 = Mid(txt0, j, 1)
j = j + 1
Me.Texto5 = Mid(txt0, j, 1)
End Sub

Mas não me vejo a fazer isso para 13 caixas de texto. se já assim
o código esta ficando grande e são só 4 caixas de texto....
Preciso usar a função FOR mas não sei como fazer referencia as
caixas de texto.
Sei que é algo do género FOR EACH......

Código:

For i = 2 To 13
    Me("Texto" & CStr(i)) = Mid$(Me("Texto1").Caption, i - 1, 1)
Next i

Código:

Me("Texto6") = Left$(Me("Texto1").Caption, 3)
Me("Texto7") = Mid$(Me("Texto1").Caption, 4, 4)
Me("Texto8") = Mid$(Me("Texto1").Caption, 8, 5)
Me("Texto9") = Right$(Me("Texto1").Caption, 1)

Obrigado pela resposta
tive que fazer algumas alterações mas já esta bom.
agora o código se resume só  a:

For i = 2 To 13
   Me("Texto" & CStr(i)) = Mid(Me.Texto1, i - 1, 1)
Next i

Muito obrigado