Anexar a un archivo de texto Ejercicio VB.Net - Curso de Programación Visual Basic

Imports System
Imports System.IO
Class Sentences
    Private Shared Sub Main(ByVal args As String())
        Dim myFile As StreamWriter = File.AppendText("file.txt")
        Dim line As String

        Do
            Console.Write("Enter a sentence: ")
            line = Console.ReadLine()
            If line <> "" Then myFile.WriteLine(line)
        Loop While line <> ""

        myFile.Close()
    End Sub
End Class