ListBox'a Aktarırken Tarih Format

[htsumer]

Private Sub CommandButton3_Click()
Sheets("kütük").Select
Worksheets("Kayıt Döküm").Range("A2:K5000").ClearContents
sat = Worksheets("Kayıt Döküm").[a65536].End(3).Row + 1
For i = 2 To Worksheets("kütük").[a65536].End(3).Row
For j = 1 To 8
Worksheets("Kayıt Döküm").Cells(sat, j).Value = Worksheets("kütük").Cells(i, j).Value
Next
Worksheets("Kayıt Döküm").Cells(sat, 9).Value = Worksheets("kütük").Cells(i, 19).Value
Worksheets("Kayıt Döküm").Cells(sat, 10).Value = Worksheets("kütük").Cells(i, 13).Value
Worksheets("Kayıt Döküm").Cells(sat, 11).Value = Worksheets("kütük").Cells(i, 14).Value
sat = sat + 1
Next
ListBox1.RowSource = "'Kayıt Döküm'!b1:k5000"
End Sub

Bu şekilde ListBoxa veriler geliyor.Çalışma sayfasında tarih formatı gg.aa.yyyy olarak doğru ama listboxa aktarıken aa.gg.yyyy olarak geliyor..
Nasıl bir düzenleme yapılmalı