Boa noite
Já tentei várias soluções que encontrei, mas nenhuma faz o correto, pois, transferem do formulário para a plan a data mês/dia/ano e deveria ser dia/mês/ano, estou a usar o seguinte código;

Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If Len(TextBox1) = 2 Or Len(TextBox1) = 5 Then
        TextBox1.Text = TextBox1.Text & "/"
        SendKeys "{End}", True
    [Plan2].Columns("B").NumberFormat = "dd/mm/yyyy"
    Selection.NumberFormat = "dd/mm/yyyy"
    End If
End Sub

e também:

Private Sub TextBox1_Change()
If Len(TextBox1.Text) = 2 Then
TextBox1 = TextBox1 + "/"
End If
If Len(TextBox1.Text) = 5 Then
TextBox1 = TextBox1 + "/"
End If
End Sub

Se me poderem ajudar, agradeço,
Grato,
RM
Faltou o anexo.