Boa noite, a todos do Fórum.

Encontrei um código aqui no Fórum que faz a importação de arquivo .csv onde fui incrementar mas não foi bem sucedido o incremento, e gostaria de uma ajuda dos senhores.

O código esta funcionando normal, quando executo está abrindo a tela pra selecionar o arquivo normalmente, depois que seleciono o arquivo e clico em abrir esta dando erro na linha que inserir para conter o cancelar caso não selecione nenhum arquivo.
Linha: If Arquivo = False Then Exit Sub

Sub Importar_csv()
    
Dim Campos As Variant
Dim Arquivo As String
Dim i As Long, j As Long
    
    'Contador de linhas
    i = 2
    'abre um "mini" explorer de arquivos
    Arquivo = Application.GetOpenFilename(FileFilter:="Arquivos Texto(*.csv), *.csv", Title:="Escolha um arquivo de Texto com extensão .csv")
    
    If Arquivo = False Then Exit Sub
    
    'abre o arquivo texto
    Open Arquivo For Input As #1
    'Enquanto não chega ao fim do arquivo
    While Not (EOF(1))
        'Captura 1 linha e armazena na variável Linha
        Line Input #1, linha
        'separa os campos e armazena na variável "Campos"
        Campos = Split(linha, ";")
        'Distribui os campos na planilha
        For j = 0 To UBound(Campos)
            Plan3.Cells(i, j + 1).Value = Campos(j)
        Next
        'incrementa uma linha
        i = i + 1
    Wend
    'fecha o arquivo texto
    Close #1
    MsgBox "Fim de execução da macro"
    
End Sub

Gostaria de uma ajuda dos senhores.