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

Bom dia