I am using the following code to add a string of text to a file which already contains some data. But when I enter any string to the file, the old data gets erased out and only the new string is left.

The code:

Private Sub cmdAdd_Click()
dim strAdd as string
strAdd = Text1 & Text2
open App.Path & "\Test.txt" for Output as #1
Print #1, strAdd
close #1
End Sub

How do I modify my code to write the new string after the end of existing data in the file.


Thanks

Kinjal