Visual Basic - Error al bajar fechas de un data grid

con esté codigo bajo el data grid a excel, el problema que tengo es con las fechas por ejemplo si un dato del data grid tiene 08-11-2004 al bajarlo al excel queda como 11-08-2004 que sera, cuando el día es menor que el mes pasa ese problema pero si el día es mayor al mes queda bien ejemplo 16-11-2004 lo baja 16-11-2004 queda igual, gracias por la ayuda.

Private Sub cmdtoexcell_Click()
Dim wkbNew As Excel.Workbook
Dim wkbSheet As Excel.Worksheet
Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
xlApp.Visible = True
Dim Rng As Excel.Range
If Dir(\"C:\\movimiento.xls\") <> \"\" Then \'Si Existe el Archivo
Kill \"C:\\movimiento.xls\" \'Lo Eliminamos
End If
Set xlWB = xlApp.Workbooks.Add
Set wkbNew = Workbooks.Add
wkbNew.SaveAs \"C:\\movimiento.xls\"
Set wkbSheet = wkbNew.Worksheets(1)
Set Rng = wkbSheet.Range(\"A1:\" + Chr(DataGrid1.Columns.Count + 64) + CStr(Adodc1.Recordset.RecordCount))
DataGrid1.Row = 0 \'se coloca el cursor en la primera fila
DataGrid1.Refresh
For I = 0 To Adodc1.Recordset.RecordCount - 1
For j = 0 To DataGrid1.Columns.Count - 1
DataGrid1.Col = j
Rng.Range(Chr(j + 1 + 64) + CStr(I + 1)) = DataGrid1.Text
Next j
Adodc1.Recordset.MoveNext
Next I
wkbNew.Close True
Dim MyValue
MyValue = Shell(\"rundll32.exe url.dll,FileProtocolHandler \" & \"C:\\movimiento.xls\")
Set wkbNew = Nothing
Set wkbSheet = Nothing
Set Rng = Nothing
End Sub