Como ler o conteúdo de um arquivo texto uma linha de cada vez em VBA

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

' Macro que lê o conteúdo de um arquivo texto uma linha de cada vez
Sub LerLinhasArquivoTexto()
  ' variáveis usadas na resolução do problema
  Dim nome_arquivo As String
  Dim linha As String
  Dim ident_arquivo As Integer
    
  ' caminho e nome do arquivo
  nome_arquivo = "C:\\estudos_vba\\linguagens.txt"
    
  ' vamos obter o identificar único de arquivo
  ident_arquivo = FreeFile
    
  ' agora abrimos o arquivo para leitura
  Open nome_arquivo For Input As #ident_arquivo
    
  ' efetuamos a leitura do arquivo uma linha de cada vez
  Do Until EOF(1)
    ' obtemos o conteúdo da linha atual
    Line Input #1, linha
    ' e mostramos em uma mensagem MsgBox
    MsgBox linha
  Loop
    
  ' fechamos o arquivo
  Close #ident_arquivo
End Sub