Nao consigo executar o comando

Não consegui executar o codigo abaixo. ocorreu o erro que diz "Não é possivel importar o este arquivo", na linha (DoCmd.TransferText acImportDelim, ";", "NovaTabela", txtFilePath)



Private Sub teubotao_Click()
Call BrowsingWindow
End Sub

'habilite a referencia VBA Microsoft Office xx.x Object Library
Sub BrowsingWindow()

Dim Dlg As FileDialog
Dim txtFilePath As String
Dim varFile As Variant

Set Dlg = Application.FileDialog(msoFileDialogFilePicker)
With Dlg
.Title = "Select the file you want to import"
.AllowMultiSelect = False
If .Show = True Then

For Each varFile In .SelectedItems
txtFilePath = varFile
Next
DoCmd.TransferText acImportDelim, ";", "NovaTabela", txtFilePath
Else
Exit Sub
End If
End With

End Sub

Olá, seja bem vindo ao fórum.

Bom, tua duvida carece de mais detalhes para lhe ajudarmos.

Mas, " nova tabela " é a tabela para onde vai ser importado o arquivo que você deseja. Você tem que ter essa tabela no teu projeto, provavelmente você terá que alterar o nome de "nova tabela " para o nome da tabela que você esta querendo que receba os dados.

Sucesso.