Desde un formulario de listbox copio la información a una hoja excel y me cambia la fecha

En Octubre se cambia la fecha, cuando en el listbox sale 07-10-17 la copia en la hoja excel como 10-07-17

Private Sub ComboBox1_Change()
'Evito movimientos de la pantalla
Application.ScreenUpdating = False
Dim fila, a As Integer
Dim dato, var As String
On Error Resume Next
'Borra datos del listbox
ListBox1.Clear
Me.ListBox1.ColumnCount = 10
Me.ListBox1.ColumnWidths = "120 pt;120 pt;100 pt;100 pt;100 pt;100 pt;100 pt;110 pt;60 pt;80 pt"

a = 0
fila = 2
'Bucle mientras la fila no esté vacia
While Sheets("2017").Cells(fila, 4) <> Empty
dato = ComboBox1
'Si el dato de la fila coincide con textbox carga los datos al listbox
var = Sheets("2017").Cells(fila, 4)
If Sheets("2017").Cells(fila, 4) = dato Then
'Copia los datos de la celda list box
a = ListBox1.ListCount
ListBox1.AddItem
ListBox1.List(a, 0) = Sheets("2017").Cells(fila, 1)
ListBox1.List(a, 1) = Sheets("2017").Cells(fila, 3)
ListBox1.List(a, 2) = Sheets("2017").Cells(fila, 5)  (aqui va la fecha)
ListBox1.List(a, 3) = Sheets("2017").Cells(fila, 6)
ListBox1.List(a, 4) = Sheets("2017").Cells(fila, 7)
ListBox1.List(a, 5) = Sheets("2017").Cells(fila, 8)
ListBox1.List(a, 6) = Sheets("2017").Cells(fila, 9)
ListBox1.List(a, 7) = Sheets("2017").Cells(fila, 10)
ListBox1.List(a, 8) = Sheets("2017").Cells(fila, 11)
ListBox1.List(a, 9) = Sheets("2017").Cells(fila, 12)
End If
'Aumento la fila para que pase a la siguiente
fila = fila + 1
Wend

'Devuelvo movimientos de la pantalla
Application.ScreenUpdating = True
End Sub