Visual Basic - fecha al dar enter

Tengo un cuadro de texto, y necesito que al dar un enter se configure automaticamente la fecha, es decir en el cuadro de texto introdizco los 6 numeros correspondiantes (DDMMAA) a la fecha y al dar ya sea un enter o un tab la fecha quede en formato DD/MM/AA

Agradeceria cualquier ayuda, Saludos

Private Sub Text1_LostFocus()
Text1 = Left(Text1, 2) & "/" & Mid(Text1, 3, 2) & "/" & Right(Text1, 2)
End Sub