Writing to a text file VB.Net Exercise - Visual Basic Programming Course

Imports System
Imports System.IO
Namespace FileWrite
    Class Program
        Private Shared Sub Main(ByVal args As String())
            Dim sentence As String = " "
            Dim myfile As StreamWriter
            myfile = File.CreateText("test.txt")

            Do
                Console.Write("Enter a sentence: ")
                sentence = Console.ReadLine()

                If sentence.Length <> 0 Then
                    myfile.WriteLine(sentence)
                End If
            Loop While sentence.Length <> 0

            myfile.Close()
        End Sub
    End Class
End Namespace