Exemplo de POO avançado

Imports System

Imports System.IO

Imports System.Collections

Module Module1

    Sub Main()

        Try

            Dim fileName As New StreamReader("I:\2ºano\psi\m11\ficheiro.txt")

            Dim Linha As String = ""

            Dim lerText As New ArrayList()

            Do

                Linha = fileName.ReadLine()

                If Not Linha Is Nothing Then

                    lerText.Add(Linha)

                End If

            Loop Until Linha Is Nothing

            fileName.Close()

            For Each Linha In lerText

                Console.WriteLine(Linha)

            Next

            Console.ReadLine()

        Catch ex As Exception

            Dim fileName As String = InputBox("Não foi possivel visualizar o ficheiro", "Ler Ficheiro", "F:\2ºano\psi\m11\ficheiro.txt")

            'Finally

        End Try

    End Sub

End Module

Neste código podemos ver o tratamento de excepções de um ficheiro.
Em que, caso ocorra erro, apenas vai aparecer uma caixa com uma mensagem a dizer que não é possível visualizar e o destino do ficheiro que foi introducido.