проверка полей TextBox

[Ilya_L]

Здравствуйте всем! У меня вот такая задача... имеется 3 поля TextBox, в которое вводится только буквы русские, и 3 поля, в которое вводятся только цифры.. Помогите сделать проверку, т.е. если в первые 3 поля хотя бы в одно или несколько вводятся все, кроме русских букв, то выдавать сообщение, и так же с другими 3-мя полями только для цифр.

[doober]

Для русских букв

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If KeyAscii > 1039 And KeyAscii < 1104 Or KeyAscii = 1016 _
Or KeyAscii = 1032 Or KeyAscii = 1018 Or KeyAscii = 1034 Then
Else
MsgBox ("не правильный ввод")
KeyAscii = 0
End If
End Sub

Для цифр вам уже ответ давали здесь

[R Dmitry]

Сообщение от Ilya_L

Здравствуйте всем! У меня вот такая задача... имеется 3 поля TextBox, в которое вводится только буквы русские, и 3 поля, в которое вводятся только цифры.. Помогите сделать проверку, т.е. если в первые 3 поля хотя бы в одно или несколько вводятся все, кроме русских букв, то выдавать сообщение, и так же с другими 3-мя полями только для цифр.

да еще если дробные числа необходимо еще заменить запятую на точку

[Ilya_L]

А если такую же проверку поставить на ввод из файла?
мой код на все TextBox'ы

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If KeyAscii > 1039 And KeyAscii < 1104 Or KeyAscii = 1016 _
    Or KeyAscii = 1032 Or KeyAscii = 1018 Or KeyAscii = 1034 Then
Else
    MsgBox ("Неправильный ввод. Вводятся только буквы ")
    KeyAscii = 0
End If

End Sub
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If KeyAscii > 1039 And KeyAscii < 1104 Or KeyAscii = 1016 _
    Or KeyAscii = 1032 Or KeyAscii = 1018 Or KeyAscii = 1034 Then
Else
    MsgBox ("Неправильный ввод! Вводится только русский алфавит.")
    KeyAscii = 0
End If

End Sub
Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If KeyAscii > 1039 And KeyAscii < 1104 Or KeyAscii = 1016 _
    Or KeyAscii = 1032 Or KeyAscii = 1018 Or KeyAscii = 1034 Then
Else
    MsgBox ("Неправильный ввод! Вводится только русский алфавит.")
    KeyAscii = 0
End If

End Sub
Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If KeyAscii > 47 And KeyAscii < 58 Then
Else
    MsgBox ("Неправильный ввод! Вводятся только числа.")
    KeyAscii = 0
End If

End Sub
Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If KeyAscii > 47 And KeyAscii < 58 Then
Else
    MsgBox ("Неправильный ввод! Вводятся только числа.")
    KeyAscii = 0
End If

End Sub
Private Sub TextBox6_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If KeyAscii > 47 And KeyAscii < 58 Or KeyAscii = 44 Then
Else
    MsgBox ("Неправильный ввод! Вводятся только числа и запятые для дробных чисел.")
    KeyAscii = 0
End If

End Sub
Private Sub TextBox8_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If KeyAscii > 47 And KeyAscii < 58 Then
Else
    MsgBox ("Неправильный ввод! Вводятся только числа.")
    KeyAscii = 0
End If

End Sub

А как будет выглядеть для ячеек?