copiar datos de listbox a hoja de excel

Alegria Mauricio · el 20 de julio

Tengo el siguiente codigo que me extrae datos del listbox a una hoja de excel.
pero al pasar los datos que traen fecha me los coloca como mm/dd/aa y lo requiero como dd/mm/aa, cabe recalcar que los datos de las fechas estan en una fila especifica "solo en una fila". Como podria modifcar mi codigo para poder realizar el cambio.

Set r = Sheets("RESUMEN")
uf = r.Range("B" & Rows.Count).End(xlUp).Row + 1
'Worksheets("RESUMEN").Range("A4:M" & uf).ClearContents
Dim Fcc As Date 'Declaracion de variable de tipo fecha
Fcc = FormatDateTime(Now, vbShortDate) 'asiganos la fecha a la variable
r.Cells(1, 1) = "REPORTE REGISTRO DE COMIDAS" 'Enviamos el nombre de la empresa a la Celda A1
'Enviamos el nombre del Reporte


Dim fecha As Date

If Me.Combo_Confianza.value = "Confianza" Then
r.Cells(2, 1) = "Grupo :" & "CONFIANZA"




For X = 0 To ListBox1.ListCount - 1

uf = r.Range("A" & Rows.Count).End(xlUp).Row + 1

r.Cells(uf, 1).value = ListBox1.List(X, 0)
r.Cells(uf, 2).value = ListBox1.List(X, 1)
r.Cells(uf, 3).value = ListBox1.List(X, 2)
r.Cells(uf, 4).value = ListBox1.List(X, 3)
r.Cells(uf, 5).value = ListBox1.List(X, 4)
r.Cells(uf, 6).value = ListBox1.List(X, 5)
r.Cells(uf, 7).value = ListBox1.List(X, 6)
r.Cells(uf, 8).value = ListBox1.List(X, 7)
r.Cells(uf, 9).value = ListBox1.List(X, 8)
r.Cells(uf, 10).value = ListBox1.List(X, 9)
r.Cells(uf, 11).value = ListBox1.List(X, 10)
r.Cells(uf, 12).value = ListBox1.List(X, 11)
r.Cells(uf, 13).value = ListBox1.List(X, 12)
r.Cells(uf, 14).value = ListBox1.List(X, 13)
r.Cells(uf, 15).value = ListBox1.List(X, 14)
r.Cells(uf, 16).value = ListBox1.List(X, 15)
r.Cells(uf, 17).value = ListBox1.List(X, 16)

Next X