Guru do Excel e Power BI

Bom dia pessoal,
Estou iniciando agora no VBA e estou fazendo um codigo de cadastro. Porem quando salva a data o excel inverte.
Se colocar 01/10/2019 ele joga na planilha 10/01/2019.

abaixo o código utilizado
se tiver algum bloqueio a senha é 123

Private Sub data_Change()
Dim txt_data As String

txt_data = data.Value

If Len(txt_data) = 8 Then

data.Value = Format(txt_data, "0#""/""##""/""####")
End If

End Sub

Alterei o código do botão inserir na linha de atribuir a data. Usei a função CDate do VBA. Veja se atende.

Show!!
Muito Obrigado