Para eso Microsoft tiene el componente Microsoft Masked Edit Control (lo puedes añadir desde proyecto->componentes) que es como un textbox pero permite añadir una mascara de entrada.
Prueba esto: Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii <> vbKeyBack Then If Len(Text1.Text) = 2 Then Text1.Text = Text1.Text & "/" End If If Len(Text1.Text) = 5 Then Text1.Text = Text1.Text & "/" End If Text1.SelStart = Len(Text1.Text) End If
If (KeyAscii > vbKey9 Or KeyAscii < vbKey0) And KeyAscii <> vbKeyBack Then KeyAscii = 0 End If End Sub
yo tambien te recomiendo mucho el MaskedBox, que se le puede dar una mascara de entrada, pero tambien depende para que lo necesites, por que si es poara fechas tambien puedes usar los DTPicker, cualquier duda solo escribeme a mi correo electronico, bye.