Public Shared Sub Main() Try 'Opens a text file. Dim fs As New FileStream("data.txt", FileMode.Open) Dim sr As New StreamReader(fs) Dim line As String 'A value is read from the file and output to the console. line = sr.ReadLine() Console.WriteLine(line) Catch e As FileNotFoundException Console.WriteLine("[Data File Missing] {0}", e) Throw New FileNotFoundException("[data.txt not in c:\dev directory]", e) Finally fs.Close() End Try End Sub 'Main-Dave