Visual Basic para Aplicaciones - diagonal despues de 2 numeros

Tengo un problema, intento hacer que un text box despues de poner 2 numeros automaticamente me escriba una diagonal.

Puede ser algo así...

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

Saludos desde Baires, JuanC

Gracias JuanC, pero ahora es posible adaptar esto a una fecha.
Al estar tecleando los numeros vallan apareciendo las diagonales automaticamente.