Como puedo poner una - en medio de números en un textbox?
Estoy tratando de poner una raya en medio de números en un textbox para dividir los números telefónicos quiero que salgan así: 809-754-4574.
Esto es lo que he logrado:
Private Sub TextBox2_Change()
TextBox2 = Format(TextBox2, "000\-\0000")
End Sub
Pero lo que me sale es un completo disparaste
2 respuestas
Prueba este a ver si te ayuda seria así
Private Sub TextBox1_Change()
Select Case Len(TextBox1)
Case 3
TextBox1.Value = TextBox1.Value & "-"
Case 8
TextBox1.Value = TextBox1.Value & "-"
End Select
End Sub
textbox1 = al nombre de tu textbox
no olivdes valorar para cerrar la pregunta
$$\begin{align}&Saludoss\end{align}$$
Pregunto ¿no te resultaría más sencillo poner como mascara de entrada
000\-000\-0000
Y si lo quieres en el código, en las propiedades de textbox2 en el evento Al recibir el enfoque
txtbox2.InputMask = "000\-000\-0000"