Imports System

Imports System.IO

Module module1

    Public Sub Main()

        Try

            escrever()

            ' Criar uma intância de uma streamreader para ler dum ficheiro.

            Dim sr As StreamReader = New StreamReader("testfile.txt")

            Dim line As String

            'ler e escrever as linhas do ficheiro até ao fim deste

            Do

                line = sr.ReadLine()

                Console.WriteLine(line)

            Loop Until line Is Nothing

            sr.Close()

_____//_______

Catch E As Exception

            ' mostrar ao utilizador o que correu mal

            Console.WriteLine("The file could not be read:")

            Console.WriteLine(E.Message)

            Console.ReadKey()

        End Try

        Console.ReadKey()

    End Sub

Continua…