Sub le_arquivo_de_texto()
                        
  Dim leitor As New FileSystemObject
  Dim arquivo As Object
  Dim caminho As String
  
  ' Coloque AQUI o caminho do arquivo que deseja ler:
  caminho = "G:\Meu Drive\Arquivos\UFPR\1 - Disciplinas\1 - Meta heuristicas\Codigos\2026-2\arquivos_texto\teste_leitura.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

  'arquivo.Close 'remover o comentário desta linha
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 = "G:\Meu Drive\Arquivos\UFPR\1 - Disciplinas\1 - Meta heuristicas\Codigos\2026-2\arquivos_texto\teste_leitura.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
    Debug.Print v_split(0)
  Wend
  
  'arquivo.Close 'remover o comentário desta linha
End Sub