Excel Erro de formatação na Data

[Wilson Cardoso]

Boa tarde, estou utilizando esta sintaxe,

Private Sub txtinicio_Change()

    If IsNumeric(txtinicio) = False Then Exit Sub
     If Len(txtinicio) = 8 Then
        txtinicio.Value = FormatDateTime(Left(txtinicio.Value, 2) & "/" & Mid(txtinicio.Value, 3, 2) & "/" & Right(txtinicio.Value, 2))
    End If

End Sub

 

Porém, quando ela vai para o excel, inverte o dia e o mês, não sei se por conta do código ou da tabela.

 

Exemplo, eu escrevo 10/05/2020 no TextBox, no Excel aparece 05/10/2020

[Patropi]

Boa noite @Wilson Cardoso

 

Como você não anexou nenhum arquivo Excel, dificilmente o pessoal irá te ajudar.

 

Veja se ajuda:

 

[]s