Imports System.IO
Module Module1
Sub Main()
Using tr As TextReader = File.OpenText("d:\\data.txt")
Dim line As String
line = tr.ReadLine()
Do Until line Is Nothing
Console.WriteLine(line)
line = tr.ReadLine()
Loop
End Using
End Sub
End Module
' run:
'
' line one
' line two