matrices de textbox

[Jassss]

Tengo un problema a la hora de escribir en una matriz de textbox.

Yo los que quiero es que cuando halla escrito en un de los dos cuadros de la matriz (Text1(0)) un número de caracteres maximo por ej: 8 caracteres, entonces cuando siga sacando el resto de datos lo haga en el otro cuadro de texto de la matriz.

El programa que yo tengo hecho hasta hora sería este:

Private Sub Calcular_Click()
Dim tabla(2) As String
Dim tabla2(2) As String
Dim cont As Long

For a = 0 To 2
tabla(0) = a
For b = 0 To 2
tabla(1) = b
For c = 0 To 2
tabla(2) = c
cont = cont + 1
For x = 0 To 2
If tabla(x) = 0 Then tabla2(x) = "1"
If tabla(x) = 1 Then tabla2(x) = "X"
If tabla(x) = 2 Then tabla2(x) = "2"
Me.Text1(0).Text = Me.Text1(0) + tabla2(x)
Next
Me.Text1(1) = Me.Text1(1) + vbCrLf
TextBox = Text1(0).Text & Text1(1).Text
Me.Text1(0) = Me.Text1(0) + vbCrLf
Next
Next
Next
MsgBox (cont)
End Sub

En el formulario so lo hay 2 cuadros de texto y un boton
Cuadros de texto:
- Text1(0)
- Text1(1)
Boton:
Calcular