Formatar data para Tabela Dinâmica

Gostaria de uma ajuda para um projeto particular. Tenho uma entrada de dados por meio de formulário do VBA, um dos dados é a data. Esses dados são guardados em uma planilha Excel, origem de uma tabela dinâmica e um gráfico dinâmico. Porém, estou com dificuldade de fazer com que a tabela dinâmica enxergue a informação de data com o formato de data. Dentro do código VBA inseri a ação de transformar o formato da célula data conforme caminho do excel (Dados >> Textos em Colunas >> Data >> MDA), porém, a formatação inverte o dia com o mês e a tabela dinâmica não reconhece a formatação da data, desconsiderando a informação. A parte do código referente a data é:

'Incluir novas informações

    Range("A4").Select
    ActiveCell = Me.txtData.Text

'Formatar o texto como data (necessário a formatação do excel estar como texto)
    txtData = Format(txtData.Value, "date")
    Selection.NumberFormat = "mm/dd/yyyy;@"

 Dim i As Long

    For i = 1 To 1
    Columns(i).Select
            Selection.TextToColumns Destination:=Cells(1, i), DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
            Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
            :=Array(1, 4), TrailingMinusNumbers:=True
    Next i

Mas quando eu atualizo a tabela dinâmica, ela desconsidera os lançamentos realizados pelo formulário, porque diz que não há informações formatadas como data. O que preciso mudar ou acrescentar ao código para que a tabela dinâmica reconheça a data corretamente?