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.

Fácil, una opción puede ser usando un case
así
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case vbKeyBack
Case vbKeySpace
Case vbKeyReturn
Case Else
KeyAscii = 0
End Select

Puedes hacer esto en el evento Keypress
\' Esta linea hace que hace que solo se tecleen números y que solo sean de 1 al 6, el valor 0 del keyascii elimina el teclaso indeseado

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
Else
If Val(Chr(KeyAscii)) > 6 Then
KeyAscii = 0
End If
End If