[Resolvido]Buscar arquivo e importar para tabela via codigo

Mestres, já tentei vários códigos, entrei em vários fóruns, mas sempre dá erro na codificação

Tenho uma tabela chamada "Cadastro"
Tenho um formulário, neste formulário tenho um botão onde chamo o evento de importação.

Minha importação é padronizada, contendo já o nome do arquivo e o local fixo.

Desejo que ao clicar no botão, apareça a tela abrir, onde possa buscar o arquivo.


Tenho este código do mestre JPaulo, mas importa tudo para apenas uma coluna, não separa as informações.

Private Sub Comando4_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, ";", "Nova Tabela", txtFilePath
Else
Exit Sub
End If
End With
End Sub

Como não tive retorno dos mestres do fórum, estou passando o tópico para resolvido.

Bom dia,

Já tive essa dúvida, pesquise em um dos meus tópicos esta a solução.