Validacion para no poner el cero en la primera posicion

[Eric Gonzalez]

Hola amigos, como estan?

Pues el motivo de mi duda es debido a que no se si exista alguna validacion para que en un text box no pueda poner en la primera posicion el numero 0 (CERO) ...se escucha sencillo pero no se como realizarla.....el maxlenght es de 2 posiciones..pero no kiero que en la primera pueda poner el cero....

Espero su ayuda y saludos cordiales

[ReViJa]

Esta manera te puede servir, pero recuerda que si haces Copy/paste dentro del txt con un 0x se lo comera.

Código:

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
  Case 48
    If Text1 = "" Then KeyAscii = 0
End Select
End Sub

Te dejo otra bastante sencilla y a mi gusto mas efectiva:

Código:

Private Sub Text1_Change()
If Left(Text1, 1) = "0" Then Text1 = ""
End Sub

Espero que te sirva.

[Eric Gonzalez]

Muchisimas gracias por este aporte....me sirvio bastante....gracias por su ayuda