Imports System

Public Module Module1

    Public Sub Main()

            'The process of working with files

        'The process

        '1) Open file

        '2) Do stuff

        '3) close the file

​

        FileOpen(1, "hello.txt", OpenMode.Output)

​

        'Loop until user enters stop

        Dim input As String = ""

​

        While input.ToUpper <> "STOP"

            Console.WriteLine("Enter a sentence (STOP to stop): ")

            input = Console.ReadLine

            If input.ToUpper <> "STOP" Then

                PrintLine(1, input)

​

            End If

        End While

        FileClose()

​

    End Sub

End Module