[Resolvido]Barra automatica em data

Boa noite.
Após algum tempo, estou retornando para tentar solucionar uma duvida. Realizei algumas buscas principalmente neste forum e não encontrei uma resposta onde na textbox.
Algum tópico ou link onde possa tirar a minha duvida.

Um código que implementei no projeto, deu erro, resolvi tira-lo
Exemplo.  digitar desta forma na textbox 12082000 e  ficará desta forma 12/08/2000.

Utilizei este código abaixo e deu erro

Código:



Private Sub Id_DataNasc_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   'Limita a Qde de caracteres
   Id_DataNasc.MaxLength = 10
 
   'para permitir que apenas números sejam digitados
   If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
      KeyAscii = 0
   End If
 
End Sub
 
Private Sub Id_DataNasc_Change()
   'Formata : dd/mm/aaaa
   If Len(Id_DataNasc) = 2 Or Len(Id_DataNasc) = 5 Then
      Id_DataNasc.Text = Id_DataNasc.Text & "/"
      SendKeys "{End}", True
   End If
End Sub



Já existe o recurso nativo do MS Access. Basta configurar a máscara de entrada, assim não será necessário você digitar as barras pois elas já ficam automáticas no campo.

Obrigado