csv changes date format, help please

Public Sub LoopFiles()
    c1 = "C:\"
    c2 = Dir(c1 & "*.xl*")
    Do While c2 <> ""
        With Workbooks.Add(c1 & c2)
            .Sheets(1).Rows("1:2").Delete
            .SaveAs c1 & Split(c2, ".")(0) & ".csv", xlCSVWindows
            .Close False
        End With
        c2 = Dir
    Loop
End Sub

Public Sub LoopFiles()
    c1 = "C:\"
    c2 = Dir(c1 & "*.xl*")
    Do While c2 <> ""
        With Workbooks.Open(c1 & c2)
            .Sheets(1).Activate
            Activesheet.Rows("1:2").Delete
            .SaveAs c1 & Split(c2, ".")(0) & ".csv", xlCSVWindows
            .Close False
        End With
        c2 = Dir
    Loop
End Sub

Sub LoopFiles()
Dim txt As String
Dim c1 As String, c2 As String
Dim fNames As Variant
Dim i As Long
i = 0
    c1 = "Y:\Work\Personal\New Folder\"
    c2 = Dir(c1 & "*.xl*")
If c2 <> "" Then
    Do
        If IsEmpty(fNames) Then
            ReDim fNames(0 To 0)
        Else
            ReDim Preserve fNames(0 To i)
        End If
        fNames(i) = c2
        i = i + 1
        c2 = Dir
    Loop Until Len(c2) = 0
    For i = 0 To UBound(fNames)
        With Workbooks.Add(c1 & fNames(i))
            With .Sheets(1).UsedRange
                txt = MakeText(.Offset(2).Resize(.Rows.Count - 2))
            End With
            WriteText c1 & Split(fNames(i), ".")(0) & ".csv", txt, True
            .Close False
        End With
        txt = vbNullString
    Next i
End If
End Sub
Function WriteText(ByVal strPathAndFilename As String, ByRef strToWrite As String, Optional ByVal blnOverWrite As Boolean = False) As Boolean
Dim i As Integer, strTemp
strTemp = Dir(strPathAndFilename)
If Len(strTemp) > 0 Then
    If blnOverWrite Then
        Kill strPathAndFilename
    Else
        WriteText = False
        Exit Function
    End If
End If
i = FreeFile
Open strPathAndFilename For Binary Access Write As #i
    Put #i, , strToWrite
Close #i
WriteText = True
End Function
 
Function MakeText(ByRef rng As Range, Optional ByVal strDelim As String = ",", Optional ByVal strNewLine As String = vbCrLf) As String
Dim i As Long, j As Long
Dim strTemp As String
 
If rng.Count = 1 Then
    MakeText = rng.Text
    Exit Function
Else
    For i = 1 To rng.Rows.Count
        For j = 1 To rng.Columns.Count
            strTemp = strTemp & rng.Cells(i, j).Text & strDelim
        Next j
        strTemp = Left(strTemp, Len(strTemp) - 1) & strNewLine
    Next i
    strTemp = Left(strTemp, Len(strTemp) - 1)
    MakeText = strTemp
End If
End Function