VB.Net/File Directory/Stream Writer

StreamWriter WriteLine

Imports System
Imports System.Data
Imports System.IO
public class MainClass
   Shared Sub Main()
       Dim FileToRead As String = CurDir + "test.txt"
       Dim TestFile As FileStream
       Try
           TestFile = New FileStream(FileToRead, FileMode.Create, FileAccess.ReadWrite)
           Dim Writer As New StreamWriter(TestFile)
           Writer.WriteLine("8")
           Writer.WriteLine("7")
           Writer.WriteLine("0")
           Writer.WriteLine("ABC")
           Writer.WriteLine("5")
           Writer.Flush()
           TestFile.Seek(0, SeekOrigin.Begin)
       Catch CantCreate As Exception
           Console.WriteLine("Can"t create or write the file")
           Exit Sub
       End Try
   End Sub
End Class