Prezados, 

estou tentando fazer uma importação comum de um arquivo txt no excel, mas está retornando o target ao método OpenText, mostrando o erro subscrito. Poderiam me ajudar?

Sub ImportarTXT()
    Dim CaminhoArquivo As String
    Dim MeuArquivo As Workbook

    
    ' Abrir o explorador de arquivos para selecionar o arquivo TXT
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Selecione o arquivo TXT"
        .Filters.Clear
        .Filters.Add "Arquivos de Texto", "*.txt"
        .AllowMultiSelect = False
        
        If .Show = -1 Then
            ' Obter o caminho do arquivo selecionado
            CaminhoArquivo = .SelectedItems(1)
        Else
            ' Nenhum arquivo selecionado, sair do procedimento
            Exit Sub
        End If
    End With
    
    ' Desativar atualizações de tela para melhorar o desempenho
    Application.ScreenUpdating = False
    
    ' Abrir o arquivo TXT como um novo livro
    Set MeuArquivo = Workbooks.OpenText(Filename:=CaminhoArquivo, _
                                        Origin:=xlWindows, _
                                        StartRow:=1, _
                                        DataType:=xlDelimited, _
                                        TextQualifier:=xlDoubleQuote, _
                                        ConsecutiveDelimiter:=False, _
                                        Tab:=False, _
                                        Semicolon:=False, _
                                        Comma:=False, _
                                        Space:=False, _
                                        Other:=True, _
                                        OtherChar:="|")
    
    ' Faça algo com o arquivo importado, como copiar dados ou executar cálculos

    ' Feche o arquivo
    MeuArquivo.Close SaveChanges:=False
    
    ' Limpe a referência ao objeto do arquivo
    Set MeuArquivo = Nothing
    
    ' Reativar atualizações de tela
    Application.ScreenUpdating = True
    
    MsgB