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