Dim sTextFile As New System.Text.StringBuilder

sTextFile.AppendLine("The")
sTextFile.AppendLine("brown")
sTextFile.AppendLine("fox")
sTextFile.AppendLine("jumps")

Dim sFileName As String = "C:\test.txt"

System.IO.File.AppendAllText(sFileName, sTextFile.ToString)