Dim obFileName As String = "C:\temp\test.txt" Dim obText As String = "append that line" Dim obWriter As New System.IO.StreamWriter(obFileName, True) obWriter.WriteLine(obText) obWriter.Close() MsgBox("done...")