Este fórum está sendo desativado

[Kevts]

Em um formulário no VBA fiz a seguinte máscara para adicionar a data de nascimento:

Private Sub txt_DN_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
txt_DN.MaxLength = 10
Select Case KeyAscii
Case 8
Case 13: SendKeys "{TAB}"
Case 48 To 57
If txt_DN.SelStart = 2 Then txt_DN.SelText = "/"
If txt_DN.SelStart = 5 Then txt_DN.SelText = "/"
Case Else: KeyAscii = 0 'Ignora os outros caracteres
End Select

End Sub

Para facilitar na hora da digitação eu gostaria que ao digitar apenas os últimos números do ano, automaticamente já colocasse o ano com quatro dígitos.
Ex: Ao digitar "200360", a máscara retornasse "06/03/1960"

[Reinaldo]

Não entendi a demanda, bem como o exemplo

...digitar "200360", a máscara retornasse "06/03/1960"...

Qual o criterio/algoritimo para considerar 20 como 06?
Pode dispor seu modelo, e descrever (manualmente) o que tem e o que espera obter?

[Kevts]

Não entendi a demanda, bem como o exemplo

...digitar "200360", a máscara retornasse "06/03/1960"...

Qual o criterio/algoritimo para considerar 20 como 06?
Pode dispor seu modelo, e descrever (manualmente) o que tem e o que espera obter?

Me desculpe, escrita errado. No caso aí seria" 060360".

A ideia é ao digitar os dois últimos dígitos do ano ele já retorne o ano em quatro caracteres.