Sub le_arquivo_de_texto()

  ' Lê um arquivo de texto, linha a linha. O laço while
  ' le uma linha por vez e faz a impressão
  
  Dim leitor As New FileSystemObject
  Dim arquivo As Object
  Dim caminho As String
  
  ' Coloque AQUI o caminho do arquivo que deseja ler:
  caminho = "C:\Users\Usuario\Documents\Alexandre\Nomes.txt "
  Dim line As String
  Set arquivo = leitor.OpenTextFile(caminho,ForReading ) ' abre o arquivo
  
  While Not arquivo.AtEndOfStream ’ le linha a linha do arquivo
  	line = arquivo.ReadLine ’ toda linha e armazenada em uma string 'line'
  	Debug.Print line ’ imprimindo a linha lida
  Wend
  
  ' Fecha o arquivo
  arquivo.Close ’fecha o arquivo
End Sub

Sub le_arquivo_de_texto_vetor()
	
  ' Lê um arquivo de texto, linha a linha. A cada iteração quebra a linha
  ' por um separador específico, e salva os elementos quebrados em um vetor
  ' v_split

  Dim leitor As New FileSystemObject
  Dim arquivo As Object
  Dim caminho As String
  Dim v_split() As String
  
  ' Coloque AQUI o caminho do arquivo que deseja ler:
  caminho = "C:\Users\Usuario\Documents\Alexandre\Nomes.txt "
  Dim line As String
  
  Set arquivo = leitor.OpenTextFile(caminho,ForReading) ’abre o arquivo
  While Not arquivo . AtEndOfStream ’ le linha a linha do arquivo
  	line = arquivo.ReadLine ’ toda linha e armazenada em uma string ’linha ’
    ' Separa os elementos da linha por espaço, para trocar, altere o " " na função Split
  	v_split = Split(line, " ") ’ o vetor v_split com os elementos separadosda linha
  Wend
  
  arquivo . Close ’fecha o arquivo
End Sub