public class Test public Shared Sub Main Dim file_num As Integer = FreeFile() Dim file_name As String = "test.txt" FileOpen(file_num, file_name, OpenMode.Input, OpenAccess.Read, OpenShare.Shared) Do While Not EOF(file_num) Dim txt As String = LineInput(file_num) Console.WriteLine(txt) Loop FileClose(file_num) End Sub End class