Visual Basic - el codigo 2º parte

If Index = 20 Or Index = 27 Or Index = 42 Or Index = 50 Or Index = 55 Or Index = 65 Or Index = 80 Or Index = 90 Then ' si el indice coincide con un cuadro negro saltamos tal cuadro
Text1(Index + 2).SetFocus
Else

If Text1(Index).Index = 95 Then ' si llegamos al final saltamos al boton
Command1.SetFocus
Else
Text1(Index + 1).SetFocus ' sino pasamos de uno en uno

End If

End If
cont = cont + 1
Else
Text1(i).Text = "" ' sino es igual el contenido lo ponemos en blanco
End If


End If

Next i3 ' fin del recorrido

If cont = 95 Then
MsgBox "fin"
End If
End Sub

Public Sub solucion2()
If solucion = True Then ' si solucion es true entonces
For i = 0 To 95 Step 1 ' recorremos la matriz de textbox
Text1(i).Text = text2(i + 96).Text ' ' con esto mostramos la solucion completa al pulsar el boton de solucion

Next i 'fin del recorrido
cont = 95
solucion = False ' ponemos solucion a false
End If

End Sub