Class Test Public Shared Sub Main() Try
Using sr As StreamReader = New StreamReader("TestFile.txt") Dim line As String
Do
line = sr.ReadLine()
Console.WriteLine(Line)
Loop Until line Is Nothing
sr.Close() End Using Catch E As Exception
Console.WriteLine(E.Message) End Try End Sub End Class