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

Формулировка задачи:

Помогите ! Нужно вводить в тексбокс определенные комбинации цифр, например:1234 и 6789 все остальные комбинации цифр, на угад так сказать , не должны вводиться! И при нажатии CommandButton программа должна пропускать дальще, только если в Textbox введен корректное значение 1234 или 6789!!!! Как єто сделать?

Решение задачи: «Ввод в TextBox определенных комбинаций цифр»

textual
                            Листинг программы 
                        

                            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
                        