Text Field data To Text File. PLease Help

[PRIVATE1]

Originally posted by kinjalgp
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.

Private Sub cmdAdd_Click()
dim strAdd as string
strAdd = Text1 & Text2
open App.Path & "\Test.txt" for Append as #1 'Changed here
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