Excel VBA altera o formato da data para mm/dd/yyyy

Segue modelo abaixo, convertendo datas:

Dim CData As Date  
Dim CData2 As Date  

{'--- MODELO 01}  
Sub DataCompra1()  

    [C8].Select
    CData = [C8].Value

    If CData = "0" Then
        MsgBox "INFORME A DATA"
        'Exit Sub '--- ESTA FUNÇÃO PARA O SCRIPT, CASO QUEIRA UTILIZAR DESCOMENTE A LINHA
    Else
        ActiveCell.Value = ""
        Selection.Offset(0, 2).Select
        ActiveCell.Value = CData

    End If

End Sub

{'--- MODELO 02}  
Sub DataCompra2()  

    Dim CData As Date
    Dim CHora As Date

    dt = [C8].Value
    'fmt = [C8].Value
    CData = Format(dt)
    CHora = Format(Now)
    'Format (fmt)

    [E8].Value = CData
    [E9].Value = CHora

End Sub

Sub LimparData()

[C8].Value = ""
[E8].Value = ""

End Sub