Al exportar msflexgrid

Buenas, experto
como siempre recurriendo a los que saben..jiji
tengo el siguiente codigo para exportar a excel:
Private Sub Command4_Click()
Dim i As Long, j As Long
Dim objExcel As Object
Dim objWorkbook As Object
Dim sFilaLetra, lFila As Double
Dim Fila, columna As Integer
Dim PicturePath As String
Dim CONT As Integer
On Error Resume Next ' por si se cierra Excel antes de cargar los datos
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add
For i = 0 To MSFlexGrid1.Rows - 1
MSFlexGrid1.Row = i
For j = 0 To MSFlexGrid1.Cols - 1
MSFlexGrid1.Col = j
objWorkbook.ActiveSheet.Cells(i + 5, j + 1).Value = MSFlexGrid1.Text
objWorkbook.ActiveSheet.Cells(i + 5, j + 1).Borders().LineStyle = 1
objWorkbook.ActiveSheet.Cells(i + 5, j + 1).HorizontalAlignment = xlCenter
Next
Next
objExcel.Cells.Select
objExcel.Range("A1").Select
objExcel.Worksheets("hoja1").Name = "Relación de hechos"
ActiveWindow.DisplayGridlines = False ' para quitar las lineas divisoras
Set objWorkbook = Nothing
Set objExcel = Nothing
End Sub
cuando exporto, en la primera columna que es fecha lo hace bien siempre y cuando sea de lmismo mes es decir me guarda el formato: dd/MM/aaaa pero si en la exportacion hay otra fecha de otro mes me lo coloca con formato: mm/DD/aaaa, los datos que coincidan con ese mes.
que hago...???