Ввод в TextBox определенных комбинаций цифр

Private Sub Текст1_Change()
    ' здесь твой код
End Sub
 
 
Private Sub Комманда1_Click()
    ' здесь твой код
End Sub

Private Sub Text12_Change()
18924359
27901011
20312304
End Sub
Private Sub Command1_Click()
18924359
27901011
20312304
End Sub

Private Sub Комманда2_Click()
Dim X As Integer
X = Текст1
If X = 18924359 Or X = 27901011 Then
    MsgBox "OK", 64, ""
Else
    MsgBox "NO", vbCritical, ""
End If
End Sub

Private Sub Text12_Change()
 
 
End Sub
Private Sub Command1_Click()
 
Me.Hide
Form2.Show
End Sub
 
Private Sub Form_Load()
Form6.Caption = " list 3"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
End Sub

Private Sub Form_Load()
Текст1.Tag = "111;222;333;444;555;666"
End Sub
 
Private Sub Комманда1_Click()
Dim S() As String
Dim i
S = Split(Текст1.Tag, ";")
For i = 0 To UBound(S)
If Текст1 = S(i) Then GoTo 1
Next i
MsgBox "Не судьба", vbCritical, ""
Текст1 = ""
Exit Sub
1
MsgBox "Угaдал!", 64, ""
'здесь твой код
End Sub

Text1.Tag = "111;222;333;555;123789"