Visual Basic - Formato fecha al escribir

Buenas amigo a ver si alguien tiene el codigo para que cuando el usuario vaya escribiendo automaticamente se vayan colocando los / correspondiente al formato de fecha tal cual como se hace en access dd/mm/yyyy, este codigo deberia ser colocado en el evento change del text box gracias.

Private Sub Text1_Change()
If Len(Text1) = 2 Or Len(Text1) = 5 Then
Text1 = Text1 & "/"
Text1.SelStart = Len(Text1)
End If
End Sub

Muchas gracias ambos compañeros en especial Natalia muy sencillo tu codigo y muy eficaz gracias salu2

Hola!
Esto lo hice en VBA, pues contesto desde un ciber y tenia a mano VBA de Excel, epro creo que es igual en VB.

Private Sub TextBox1_Change()
If TextBox1 = "" Then Exit Sub
Select Case Len(TextBox1)
Case 2
TextBox1 = TextBox1 & "/"
Case 5
TextBox1 = TextBox1 & "/"
End Select
If Not IsDate(TextBox1) And Len(TextBox1) >= 8 Then
MsgBox "Fecha no válida" + Chr(13) + "Ingrese nuevamente"
TextBox1 = ""
End If
End Sub