Visual Basic - ayuda con el codigo

Dim i2 As Integer

Dim i3 As Integer

Dim i As Integer

Dim cont As Integer

Dim solucion As Byte

Private Sub Command1_Click()

solucion = True ' ponemos solucion a true y llamamos al evento change del textbox

Text1_Change (Index)

End Sub

Private Sub Command3_Click() ' en este evento recorremos la matriz y limpiamos los objetos

For i = 0 To 95

Text1(i).Text = ""

Next i

End Sub

Private Sub Form_Load()

cont = 0

End Sub

Private Sub Text1_Change(Index As Integer)

  If solucion = True Then

  solucion2

  End If

            i = Text1(Index).Index ' metemos el indice del textbox uno en una variable

            i2 = Text1(Index).Index + 96 ' metemos el indice del textbox 2(donde esta la solucion) en otra variable

            UCase (Text1(i).Text) ' transformamos a mayusculas el contenido del textbox1

        For i3 = 0 To 95 ' hacemos un recorrido con una nueva variable

            If Text1(i3).Text <> "" Then ' si el contenido del recorrido es distinta de vacio

                If UCase(Text1(i).Text) = text2(i2).Text Then ' si lo que escribes es lo mismo que lo que hay en la solucion entonces

                    Text1(i).Text = UCase(Text1(i).Text) 'introducimos lo escrito en mayuscula