Visual Basic para Aplicaciones - Diagonales automaticas en fecha

Que tal, tengo un problema aun mas, JuanC pe paso este codigo y lo pensaba usar para una fecha, pero alparecer no pude adaptarlo, si me pudieran ayudar se los agradeceria

Private Sub TextBox1_KeyPress(KeyAscii As Integer)
If Len(TextBox1.Text) = 2 Then TextBox1.Text = TextBox1.Text & "/"
End Sub

bueno, este codigo te ayuda para poner la primera diagonal en la fecha (10/022006)
tendrias q validar tambien cuando el length del textbox1 sea 5, para que te quede 10/02/2006)

seria algo asi:

Private Sub TextBox1_KeyPress(KeyAscii As Integer)
If Len(TextBox1.Text) = 2 Or Len(TextBox1.Text) = 5 Then TextBox1.Text = TextBox1.Text & "/"
End Sub

Espero te sirva, bye

Deniese yo solucione este problemita de la siguiente manera, espero se ajuste a tus necesidades y que no sea tarde

tengo un text1

valido la salida del objeto, ej.

private sub text1_validate(cancel as boolean)
if isdate(text1.text) then
cancel=false
Else
cancel=true
text1.text = hacefe(text1.text)
end if

Esto primero verifica si el dato es formato fecha y sale de lo contrario no te deja salir hasta que introduzcas un dato fecha válido. para esto necesitas una función que te ayudaría si la colocas en un modulo.

Public Function hacefe(mfech)
If Len(mfech) = 8 Then
mfec = Mid(mfech, 1, 2) & "/" & Mid(mfech, 3, 2) & "/" & Mid(mfech, 5, 4)
hacefe = mfec
Else
hacefe = mfech
End If
End Function

Esto inserta las diagonales y se crea el formato fecha.