exemplo

•Public Shared Sub Main()
Try
' Cria uma instância de um StreamReader para ler um arquivo                       
Using sr As StreamReader = New StreamReader("Macoratti.txt")
Dim line As String
' Lê e exibe as linhas do aruquivo até o fim
Do
line = sr.ReadLine()
Console.WriteLine(line)
Loop Until line Is Nothing
sr.Close()
End Using
Catch E As Exception
' Exibe mensagem de erro
Console.WriteLine("O arquivo não pode ser lido")
Console.WriteLine(E.Message)
End Try
End Sub