вы можете попытаться это одно слишком, это только позволит aplhanumeric и «^»
Приватные Sub txtBOXNAme_KeyPress (KeyAscii как интежер)
Выберите случай KeyAscii
Случай 32 до 47, 58 до 64, 91 до 93, 95 до 96, 123 до 126
KeyAscii = 0
Случай еще
Конец отборный
Подводная лодка конца