Imports System.IO
Public Class Tester
Public Shared Sub Main
Dim w As StreamWriter
w = File.AppendText("test.txt")
w.Write("it is writing data")
w.WriteLine(1)
w.WriteLine("writeline")
w.WriteLine("True")
w.Close()
End Sub
End Class