Pessoal,
Bom dia,

Estou tentando fazer a importação do arquivo txt para excel usando o código (vba) abaixo e tenho um problema na importação das DATAS.
Quando faço a importação, os dias entre 01 a 12 viram meses e com os outros ficam em formato texto.
Preciso importar arquivos em TXT, cuja as datas estarão em posições variáveis, e sempre em formato dd/mm/aaaa.
Estou enviando os arquivos em XLS e TXT para apreciação.
Por exemplo:
no arquivo texto está 01/07/2016 (data correta é primeiro de julho de 2016), depois da importação, no Excel fica 07/01/2016 (sete de janeiro de 2016):

Public Sub ImportarTexto()
    Dim Arquivo As String

    With Application.FileDialog(msoFileDialogFilePicker)
        .Show
        Arquivo = .SelectedItems(1)
    End With

  Dim rg As Range
    Set rg = Range("A1").End(xlDown).Offset(1, 0)

    Open Arquivo For Input As #1

    Dim S As String, N As Integer, C As Integer, X As Variant
    Do Until EOF(1)
        Line Input #1, S
        C = 0
        X = Split(S, ",")
        For N = 0 To UBound(X)
            If X(N) <> "" Then
                rg.Offset(0, C) = X(N)
                C = C + 1
            End If
        Next N
        Set rg = rg.Offset(1, 0)
    Loop
    Close #1

End Sub

Agradeço antecipadamente as sugestões,
abs.,