Различный формат ввода в TextBox (только цифры или буквы)

[jangle]

Подскажите, как сделать ввод в TextBox только цифр, или только букв. А также ввод по определенной маске. Пробовал анализировать нажатия клавиш в текстовом поле, а потом определять что это, буква или цифирь. Но получается медленно и неэфективно. Может есть лучшее решение чем это?

Код: Выделить всё

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim sTemplate As String
sTemplate = "qwertyuiop[]asdfghjkl;'zxcvbnm,./!@#$%^&*()_+ "
If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then KeyAscii = 0
End Sub

[alibek]

Сделай sTemplate константой, а Chr напиши как Chr$.

[RayShade]

Используй для проверки объект RegExp