Условие для TextBox при вводе значений вручную

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 
    If KeyAscii < 48 Or KeyAscii > 57 Then 
        KeyAscii = 0 
        MsgBox "Можно вводить только цифры", vbInformation, "Запрет ввода" 
    End If 
End Sub

Private Sub TextBox2_Change()
TextBox2.ForeColor = &H80000012
If TextBox2 = "" Then Exit Sub
If TextBox2 = "-" Then Exit Sub
If TextBox2 = "--" Or TextBox2 = "---" Then TextBox2 = "-": Exit Sub
i = 2
Do While Mid(TextBox2.Text, i, 1) <> Empty
    If Mid(TextBox2.Text, i, 2) = "-" Then MsgBox ("Ââåäèòå ÷èñëî")
    i = i + 1
Loop
X = TextBox2 * 1
If X * 1 > 40 Or X * 1 < -40 Then TextBox2 = "": MsgBox _
"Äîïóñòèìûå çíà÷åíèÿ òåìïåðàòóðû òîïëèâà  îò -40 ãð.Ñ  äî 40 ãð.Ñ", vbInformation, "Çàïðåò ââîäà"
If X * 1 > 0 Then TextBox2.ForeColor = &HFF&
If X * 1 < 0 Then TextBox2.ForeColor = &HFF0000
End Sub

X = TextBox2 * 1

X = Val(TextBox2)

Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr("0123456789-", Chr(KeyAscii)) <> 0 Or KeyAscii = 8 Then
  If Chr(KeyAscii) = "-" And Len(Text1) <> 0 Then KeyAscii = 0: Text1 = Val(Text1) * -1
  If Chr(KeyAscii) = "0" And (Text1.SelStart = 0 Or Text1.SelStart = 1 And Val(Text1) < 0) Then KeyAscii = 0
Else
  KeyAscii = 0
End If
End Sub

Private Sub CommandButton1_Click()
If TextBox2.Text <> "-" And TextBox2.Text <> "" Then
   UserForm1.Hide
   ' Дальнейшая работа
Else: TextBox2.Text = ""
End If
End Sub

Private Function testValue(ByVal myKey As Integer, myText As String) As Integer
If ((myKey = 45) And (Len(myText) = 0)) Or (InStr("0123456789", Chr(myKey)) > 0) _
Then testValue = myKey
End Function
 
Private Function myValue(myStr As String, ByVal myVal As Integer) As Double
myValue = Val(myStr & Chr(myVal))
End Function
 
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim tempValue As Long
KeyAscii = testValue(KeyAscii, TextBox2.text)
tempValue = myValue(TextBox2.text, KeyAscii)
If (tempValue < -40) Or (tempValue > 40) Then KeyAscii = 0
End Sub
 
Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = testValue(KeyAscii, TextBox3.text)
If Left(TextBox3.text, 1) = "-" Then
    TextBox3.MaxLength = 6
Else
    TextBox3.MaxLength = 5
End If
End Sub
 
Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = testValue(KeyAscii, TextBox4.text)
If (Val(TextBox3.text) = myValue(TextBox4.text, KeyAscii)) Or _
(Val(TextBox3.text) + 1 = myValue(TextBox4.text, KeyAscii)) Then KeyAscii = 0
End Sub