Условие для TextBox

[segail]

Необходимо создать условия для трех TextBox при вводе числовых значений вручную с клавиатуры.

1.Условие для TextBox2 ввод в ручную только числовых значений от 0 до 40 и от 0 -40 Основной цвет значений красный, если заносится значение с отрицательным знаком то цвет становится синим.
2.Условие для TextBox3 ввод только числовых значений не более пятизначных.
3.Условие для TextBox4 ввод только числовых значений, но числовое значение не должно быть равно или превышать значение TextBox3.

Или подскажите где подправить данный код.

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

[EducatedFool]

Или подскажите где подправить данный код.

А что конкретно не получается?
Самостоятельно пытались что-либо сделать?
Сложного то ничего нет - надо обрабатывать событие Change (или даже лучше KeyPress) текстбокса, и в зависимости от текущего значения отменять ввод и\или перекрашивать текстбокс.

Хоть бы создали форму с текстбоксами, и прикрепили файл к сообщению...

[pivas]

Поковыряйтесь с этим:

[segail]

А что конкретно не получается?

Ни чего не получается.

[pivas]

Извиняюсь, забыл про цвет:

[segail]

Возможен вариант, что TextBox3 не будет иметь значений при вводе значений в TextBox4
Как объединить эти два условия?

If TextBox3.Text = ""
If TextBox4 * 1 >= TextBox3 * 1 Then MsgBox "Не может быть больше или равно", vbInformation, "Запрет ввода": TextBox4 = ""

[pivas]

Добавьте в TextBox4 первой строкой:

If TextBox3 = "" Then TextBox4 = "": Exit Sub

[segail]

То что и надо было. Благодарю Вас.