DATA INVERTIDA - VBA EXCEL

[Guest Jeferson Clístenes]

pessoal, estou com o seguinte problema,

fiz um formulário em VBA Excel, só que as datas saem invertidas quando adicionadas na planilha

como posso resolver isto?

onde tem datainicial, datafinal, dijuros, dfjuros, são os campos com data

ActiveWorkbook.Sheets("DADOS").Activate

Range("a1").Select

Do

If IsEmpty(ActiveCell) = False Then

ActiveCell.Offset(1, 0).Select

End If

Loop Until IsEmpty(ActiveCell) = True

ActiveCell.Value = precatorio.Value

ActiveCell.Offset(0, 1) = precatorio.Value

ActiveCell.Offset(0, 2) = oficio.Value

ActiveCell.Offset(0, 3) = requerido.Value

ActiveCell.Offset(0, 4) = requerente.Value

'--------------

'PARCELA 1

'--------------

ActiveCell.Offset(0, 5) = parcela1.Value

ActiveCell.Offset(0, 6) = valor1.Value

ActiveCell.Offset(0, 7) = datainicial1.Value

ActiveCell.Offset(0, 8) = datafinal1.Value

ActiveCell.Offset(0, 9) = percentual1.Value

ActiveCell.Offset(0, 10) = dijuros1.Value

ActiveCell.Offset(0, 11) = dfjuros1.Value