Imports System.IO
Module Module1
Sub Main()
Dim TextFile As New StreamReader("test.txt")
Dim Content As String
Do
Content = TextFile.ReadLine()
If (Content <> Nothing) Then
Console.WriteLine(Content)
End If
Loop While (Content <> Nothing)
TextFile.Close()
End Sub
End Module