File Directory VB.Net

Imports System
Imports System.IO
Class Test
    Public Shared Sub Main()
        Try
            Dim 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()
        Catch E As Exception
            ' Let the user know what went wrong.
            Console.WriteLine("The file could not be read:")
            Console.WriteLine(E.Message)
        End Try
    End Sub
End Class