Private Sub AppendTextToFile()
    intFile = FreeFile
    Open "C:\Temp\Test.txt" for Append as intFile
    Print #intFile, Textbox1.Text' Adds contents of the textbox to the file
    Close intFile
End Sub