Segue abaixo uma mascara para data, só que quando o excel recebe o valor ele altera a data, tipo 04/07/1956 ele muda para 07/04/1956, e não tô conseguindo uma solução.
Private Sub txtNascimento_Change()
If Len(txtNascimento) = 2 Or Len(txtNascimento) = 5 Then
txtNascimento.Text = txtNascimento.Text & "/"
SendKeys "{End}", True
End If
End Sub

