Visual Basic - 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.

Tan simple como esto:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr("0123456" & vbBack & vbCr, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub
vbBack es la tecla de "backspace" es decir chr(8)
vbCR es la tecla "enter" es decir chr(13)
Si te interesa alguna más sólo tienes que añadirla.

ok gracias