Разгадать код замка сейфа

Private Sub Text1_Change(Index As Integer)
'для ручного подбора
On Error Resume Next
col = vbGreen
For i = 0 To 7
    Sum = 0
    Sum = CInt(Text1(i)) + CInt(Text1(i + 1)) + CInt(Text1(i + 2))
    If Not Sum = 10 Then col = vbWhite
Next
For i = 0 To 9
    Text1(i).BackColor = col
Next
End Sub
 
Private Sub Command1_Click()
'случайный выбор 2 заданых кубиков
For i = 0 To 9
    Text1(i) = 0
Next
t1 = Int(Rnd() * 10)
Text1(t1) = Int(Rnd() * 6 + 1)
Do
    t2 = Int(Rnd() * 10)
Loop While t2 = t1
Do
    Text1(t2) = Int(Rnd() * 6 + 1)
Loop While CInt(Text1(t1)) + CInt(Text1(t2)) > 9
End Sub
 
Private Sub Command2_Click()
Dim x&(2)
x(0) = 0: x(1) = 0: x(2) = 0
For i = 0 To 9
    If Not IsNumeric(Text1(i)) Then Exit Sub
    If CInt(Text1(i)) > 0 Then
        k = i Mod 3
        If Not x(k) = 0 Then
            If CInt(Text1(i)) = x(k) Then
                'если есть только 1 значение
                For j = 0 To 2
                    If Not j = k Then
                    x(j) = 1
                    GoTo out
                    End If
                Next
            Else
                MsgBox "нет решений"
                Exit Sub
            End If
        End If
        x(k) = CInt(Text1(i))
    End If
Next
 
If x(0) + x(1) + x(2) > 9 Then MsgBox "нет решений": Exit Sub
out:
If x(0) = 0 Then x(0) = 10 - x(1) - x(2)
If x(1) = 0 Then x(1) = 10 - x(0) - x(2)
If x(2) = 0 Then x(2) = 10 - x(1) - x(0)
 
For i = 0 To 9
    k = i Mod 3
    Text1(i) = x(k)
Next
End Sub