Visual Basic - Controlar números

Como podría controlar en el evento KeyPress(KeyAscii As Integer) de un TextBox que solo se puedan introducir números del 1 al 4.

Saludos cordiales.

Ya se han escrito aquí miles de ejemplos de cómo hacer para que se acepten solo números en un TextBox; busca uno de ellos y seguro que podrás adaptarlo para que solamente permita número del 1 al 4.

Me contesto, por si sirve de ayuda a otro principiante como yo.

Private Sub Taller_KeyPress(KeyAscii As Integer)
'Limitar solo entrada dígitos numéricos
If KeyAscii = 27 Then
Unload Me
ElseIf KeyAscii = 13 Then
KeyAscii = 0
SendKeys "{tab}"
'Si la tecla pulsada no es retroceso
ElseIf KeyAscii <> 8 Then
If Not IsNumeric("0" & Taller.Text & Chr(KeyAscii)) Then
MsgBox "Consignar del 1 al 4, según sea este material para los Talleres 1 al 4.", vbInformation
KeyAscii = 0
ElseIf KeyAscii < 49 Or KeyAscii > 52 Then
MsgBox "Consignar del 1 al 4, según sea este material para los Talleres 1 al 4.", vbInformation
KeyAscii = 0
End If
End If
End Sub

Muy bueno el código, aunque también lo podias haber hecho con solamente tres líneas:

If KeyAscii = 27 Then Unload Me
If KeyAscii = 13 Then SendKeys "{TAB}"
If InStr("1234" & Chr(8), Chr(KeyAscii)) = 0 Then KeyAscii = 0

Además, en diseño deberías controlar el número máximo de dígitos a introducir (propiedad MaxLength).

Gracias P3L30N2009.

La propiedad MaxLength la controlo en tiempo de diseño en cada TextBox., así como el formato.

Saludos cordiales.