Visual Basic para Aplicaciones - Que acepte y que no un texbox?

Aguien sabe como le digo a una caja de texto que aceptar y que no (formato)?

Por ejemplo:
si tengo una caja de texto que solo quiero que acepte los numeros del 1 al 6. Como le hago para que si yo presiono el 7 no lo escriba en la caja de texto sin tener que ponerle un mesaje en el evento change que diga: solo # del 1 al 6. Es decir no importa que presione sobre la caja de texto que solo escriba si lo que se presiono es un # entre el 1 y 6.
Gracias por su ayuda.

Mira cada caracter tiene un correspondiente en el ascii . Los que corresponden a los numeros son los siguientes:

0 le corresponde el 48
1 = 49, 2=50, 3= 51, 4= 52, 5=53, 6=54, 7=55, 8= 56, 9=57

y lo único que haces es condicionar en el evento keypress pones el siguente código:


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 49 And KeyAscii <= 54 Then
KeyAscii = KeyAscii
Else
KeyAscii = 0
End If
End Sub