Lendo o conteúdo de um arquivo texto uma linha de cada vez

'Este exemplo mostra ler o conteúdo de um arquivo
'texto uma linha de cada vez.

'Veja o link:
'http://www.recomende.com/arquivo/visualizar_dica.php?qual_dica=1508
'para mais informações sobre a classe StreamReader

Imports System.IO

Module Module1
  Sub Main()
    Try
      'define o diretório atual
      Directory.SetCurrentDirectory("c:\estudos_vb")

      'cria uma instância da classe StreamReader para ler
      'a partir do arquivo
      Dim sr As StreamReader = New StreamReader("teste.txt", _
        System.Text.Encoding.Default)
      Dim linha As String

      Do
        'lê uma linha de cada vez
        linha = sr.ReadLine()
        Console.WriteLine(linha) 'escreve a linha
      Loop Until linha Is Nothing

      sr.Close() 'fecha o fluxo de dados
    Catch e As Exception
      Console.Write("Erro ao ler o arquivo: ")
      Console.WriteLine(e.Message)
    End Try

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module