array di controlli e ciclo for next vb6

[lemac]

salve a tutti
in 1 form ho creato 1 array di textbox, quindi tutti con lo stesso name Text1;
in 1 inputbox ho 1 solo textbox, Text2;
vorrei splittare il testo inserito nel text2 in modo ke ogni text1 dell'array
riceva 1 solo carattere del testo digitato in text2;
ho provato con queste linee di codice:

Option Explicit

Dim i As Integer

Private Sub cmd_Click()
For i = 0 To 5
Text1(i).Text = Text2.Text
Next i
End Sub

mi inserisce tutto il testo in tutti i text1
come devo modificare il codice?

[optime]

...
Text1(i).Text = Mid(Text2.Text, i + 1, 1)
...

[lemac]

grazie optime
il codice ke mi hai fornito funziona
grazie ancora
ciao lemac