Read Text File Line By Line

Public Class ReadFromFile

    Shared Sub Main()
    Dim sFileName As String
    Dim srFileReader As System.IO.StreamReader
    Dim sInputLine As String

        sFileName = "test.txt"
        srFileReader = System.IO.File.OpenText(sFileName)
        sInputLine = srFileReader.ReadLine()
        Do Until sInputLine is Nothing
            System.Console.WriteLine(sInputLine)
            sInputLine = srFileReader.ReadLine()
        Loop
    End Sub
End Class