Проблема с TextBox. Диапазон вводимых значений

Здравствуйте, ещё раз, уважаемые форумчане! Я не могу решить одну проблему с Textbox. В программе в textBox необходимо вписывать определенные числовые значения. Вот сделанный мною пример:

Public A As Single
Public B As Single
Public C As Single

Private Sub Cmd1_Click()
rem ограничения для А
If Trim(txt1.Text) = "" Then
txt1.SetFocus
txt1_GotFocus
MsgBox "введите значение", vbInformation
Exit Sub
ElseIf (CLng(txt1.Text) < 1) Or (CLng(txt1.Text) > 9) Then
txt1.SetFocus
txt1_GotFocus
MsgBox "введите цифры от 1 до 9!", vbInformation
Exit Sub
End If

Rem ограничения для В
If Trim(txt2.Text) = "" Then
txt2.SetFocus
txt2_GotFocus
MsgBox "Введите значение", vbInformation
Exit Sub
ElseIf (CLng(txt2.Text) < -5) Or (CLng(txt2.Text) > 5) Then
txt2.SetFocus
txt2_GotFocus
MsgBox "Значение от -5 до 5!", vbInformation
Exit Sub
End If

Rem Обозначение переменных
A = Val(txt1.Text)
B = Val(txt2.Text)
Rem формула
C = (A + B) / 2
txt3.Text = Str(C)
End Sub

Rem ограничения для A

Private Sub txt1_keypress(KeyAscii As Integer)
txt1.MaxLength = 1
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub

Private Sub txt1_GotFocus()
txt1.SelStart = 0
txt1.SelLength = Len(txt1.Text)
End Sub

Private Sub txt1_Validate(Cancel As Boolean)
If Trim(txt1.Text) = "" Then
txt1_GotFocus
MsgBox "Введите значение", vbInformation
Cancel = True
Exit Sub
ElseIf (CLng(txt1.Text) < 1) Or (CLng(txt1.Text) > 9) Then
txt1_GotFocus
MsgBox "введите значение от 1 до 9", vbInformation
Cancel = True
Exit Sub
End If
End Sub

Rem ограничения для B

Private Sub txt2_KeyPress(KeyAscii As Integer)
txt2.MaxLength = 2
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub

Private Sub txt2_GotFocus()
txt2.SelStart = 0
txt2.SelLength = Len(txt1.Text)
End Sub

Private Sub txt2_Validate(Cancel As Boolean)
If Trim(txt2.Text) = "" Then
txt2_GotFocus
MsgBox "введите значение", vbInformation
Cancel = True
Exit Sub
ElseIf (CLng(txt2.Text) < -5) Or (CLng(txt2.Text) > 5) Then
txt2_GotFocus
MsgBox "Введите число от -5 до 5", vbInformation
Cancel = True
Exit Sub
End If
End Sub

Этот вариант не даёт возможности вводить значения со знаком "-" в txt2, а также я бы хотел чтобы после ввода числа в txt1 и нажатия клавиши enter, фокус перемещался на txt2 и после ввода данных в txt2 нажатием enter, фокус перемещался на Cmd1 и т.д. Каким должен быть этот код, чтобы была возможность вписывать в textbox только числовые значения (как положительные так и отрицательные) и была возможность перехода от одно textbox к другому с нажатием клавиши enter и чтоб при этом был определенный диапозон ввода данных (например только от 9 до 21)??? Я попытался сделать это в коде который я написал выше. У меня не получилось, мозгов не хватает, к тому же я не знаю константы клавиш.