File.AppendText
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