Data no Formulário VBA Excel esta invertendo quando salva na planilha

[Esio Junior]

Olá
Criei um Formulário VBA e no campo data ( DD,MM,YYYY ), é preenchida e ao salvar na Planilha esta invertendo do mês, ( MM,DD,YYYY ) .
já li aguns exemplos e tentei aplicar e dá erro.
Alguém pode me ajudar.
 

Private Sub Text_Data_Ticket_Change()
  
'Declarando as variaveis para DATA
Dim DATA As String, DATA2 As String, DATA3 As String
'.
Dim i As Integer, j As Integer, n As Integer

DATA = Text_Data_Ticket.Value
Text_Data.MaxLength = 10   'Dizendo campo DATA o caracteres maximo é 14

i = Len(DATA)    'Informar quantos caracteres tem campo DATA  LEN = Comprimento
   For j = 1 To i   'Varial que iguinore os pontos
       If IsNumeric(Mid(DATA, j, 1)) Then   'Verificar caracteres são numericos, (Mid)extrair texto, J =começar em qual posição , 1 = vericar 1 caracteres
       DATA2 = DATA2 & Mid(DATA, j, 1)        'Ela é o valor na DATA iguinorando os pontos e traços, considerando os numeros
       End If
   Next

i = Len(DATA2)                                 'Total de numeros existem
    For j = 1 To i                                 'Total de numeros que tenho no DATA2
    
    DATA3 = DATA3 & Mid(DATA2, j, 1) '
    If j = 3 Or j = 5 Then
    
    n = Len(DATA3) - 1                      'n quer dizer qual posição coloco o ponto
    DATA3 = Left(DATA3, n) & "/" & Right(DATA3, 1)  'Left = Esquerda e Right = Direita
    
    End If
    Next
      
      
    Text_Data_Ticket.Value = DATA3
    
    
                                                                       'CDate(Text_Data_Ticket.Text)
    
    
                                                                       'nData = Format(Now(), "MM/DD/YYYY")
                                                                       'Sheets("Planilha2").cell(linha, "Y") = Format(Text_Data_Ticket.Value, "mm/dd/yy")
 
End Sub