Imports System.IO
Module Module1 Sub Main() Dim SourceFile As StreamReader
Try
SourceFile = New StreamReader("FilenameISBad.XXX") Catch Except As Exception
Console.WriteLine(Except.Message)
Console.WriteLine(Except.Source)
Console.WriteLine(Except.StackTrace)
Console.WriteLine(Except.TargetSite.Name) End Try End Sub End Module