Di norma, il numero del file deve essere richiesto al sistema con la funzione FreeFile, perchè se apri/chiudi velocemente file usando sempre lo stesso numero (1) puoi incappare nel problema:

codice:
Dim FileNum as Integer
FileNum = FreeFile

Open App.Path & "\file.txt" For Output as #FileNum

etc...