EXCEL INVERTE DIA E MES EM UMA LISTBOX NO VBA

[wvico]

Boa tarde a todos estou com mesmo problema em uma planilha que estou montando de controle de medicação
quando realizo o filtro entre datas ele aparece certo mas quando transfiro para a planilha ela inverte o dia e mês. já li todos os post referentes a minha duvida mas não consigo soluciona-la :
Segue os códigos que estou usando:
Este é para carregar a listbox:
Private Sub cmd_pesquisar_Click()
Dim LINHAFINAL, linha, X As Integer


ListBox1.Clear
LINHAFINAL = Plan2.Cells(Rows.Count, 1).End(xlUp).Row

X = 0
For linha = 4 To LINHAFINAL
If Plan2.Cells(linha, 2).Value >= Month_data_inicial And Plan2.Cells(linha, 2).Value <= Month_data_final Then
ListBox1.AddItem Plan2.Cells(linha, 3).Value (esta variável é um data)
ListBox1.List(X, 1) = Plan2.Cells(linha, 4).Value (esta variável é um data)
ListBox1.List(X, 2) = Plan2.Cells(linha, 5).Value
ListBox1.List(X, 3) = Plan2.Cells(linha, 6).Value
ListBox1.List(X, 4) = Plan2.Cells(linha, 7).Value
ListBox1.List(X, 5) = Plan2.Cells(linha, 8).Value
ListBox1.List(X, 6) = Plan2.Cells(linha, 9).Value
ListBox1.List(X, 7) = Plan2.Cells(linha, 10).Value

X = X + 1
End If
Next
End Sub

e este é para limpar e formatar os dados da minha planilha e depois gravar o dados da listbox
Private Sub UserForm_Initialize()




Sheets("RELATÓRIO").Select
Range("A3").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Y = ActiveCell.Row
Rows(Y).Select
Selection.Delete Shift:=xlUp
Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone


Dim LINHAFINAL, linha, X As Integer
Sheets("RELATÓRIO").Select



ListBox1.Clear
LINHAFINAL = Plan2.Cells(Rows.Count, 1).End(xlUp).Row

X = 0
For linha = 4 To LINHAFINAL
ListBox1.AddItem Plan2.Cells(linha, 3).Value (esta variável é um data)
ListBox1.List(X, 1) = Plan2.Cells(linha, 4).Value (esta variável é um data)
ListBox1.List(X, 2) = Plan2.Cells(linha, 5).Value
ListBox1.List(X, 3) = Plan2.Cells(linha, 6).Value
ListBox1.List(X, 4) = Plan2.Cells(linha, 7).Value
ListBox1.List(X, 5) = Plan2.Cells(linha, 8).Value
ListBox1.List(X, 6) = Plan2.Cells(linha, 9).Value
ListBox1.List(X, 7) = Plan2.Cells(linha, 10).Value


X = X + 1
Next