Limitar los caracteres en un textbox con la función Len.

En este vídeo veréis un ejemplo de cómo limitar los caracteres que se ingresan en una caja de texto, utilizando la función Len.
#textbox
#caracteres
#limitaciones

[@zid_6.069]

Hola, por qué al ejecutar la macro me desactiva el botón "Bloq Num" de los números en el teclado?. Mi macro costa de dos Textbox, el TextBox1 es para colocar "V" ó "J" dependiendo de si es persona natural o jurídica, por lo que solo debe aceptar un solo carácter, y el TextBox2 es para el rif, en el TextBox1 he colocado el siguiente procedimiento:
Private Sub TextBox1_Change()
If Len(TextBox1) = 1 Then
Application.SendKeys "{tab}"
End If
End Sub

[@detodounpoco-x]

Hola. No estoy seguro del motivo, quizás sea por la versión de excel. Prueba así a ver si te funciona.
Private Sub TextBox1_Change()
If Len(TextBox1) = 1 Then
Application.SendKeys "{tab}"
End If
Application.SendKeys "{NUMLOCK}"
End Sub

[@zid_6.069]

@@detodounpoco-x No me sirvió, aún sigue desactivando el botón de los números, de hecho veo como se apaga la luz amarilla del teclado al introducir un carácter en el Textbox1

[@zid_6.069]

Lo que realemte sucede es que al abrir el formulario e introducir una letra en el Textbox1, el setfocus salta al Textbox2 y a su vez me desactiva en botón de números en el teclado.

[@zid_6.069]

Hola, pude solucionar, en vez de usar el procedimiento Change, usé el procedimiento Keypress, de manera que cuando introduzca un carácter en el Textbox1 salté el setfocus al Textbox2, si el usuario vuelve nuevamente al Textbox1 e intente ingresar un carácter adicional al que ya está, salta al Textbox2 y lo introduce allí. Bueno el procedimiento que usé fué este:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Len(TextBox1) = 1 Then
TextBox2.SetFocus
End If
End Sub
Saludos y gracias.

[@detodounpoco-x]

Me alegro que este solucionado. Tengo en cuenta tu solución, gracias por compartir.

[@LuisJaramillo1985]

gracias, me saco de un apuro.

[@detodounpoco-x]

Excelente!