FreeFile function and writing a file

[AM003295]

I am useing the FreeFile function to create and then write a file to a specific location. This is working good but I notice that if I exicute it a second time with the same write location it will delete the previously written file and then create the new one. I would like to have both (or all) saved without any getting deleted, is that posible?

j = FreeFile
sa = sThePath & "\Reviewed.txt"

On Error GoTo errH
Open sa For Output As #j

Print #j, ""
Print #j, "Reviewed by: " & sThePerson
Print #j, ""
Print #j, sThePath & " -- was reviewed on " & CStr(Now)
Print #j, "<>"
Close #j