I don't know why you are having that problem, but I hope you don't mind if I make a couple of comments about your code.

1) Instead of doing Open SaveName For Output As #1, you should do

Dim intFileNum As FreeFile
Open SaveName For Output As intFileNum

While you may have only one file in this app, FreeFile makes sure that the same file number is not already in use in your app and it's good practice.

2) Instead of doing End, you should first make sure that all your forms are unloaded first.