yourdestfunction (lFileNumber as long)
never use a static file number, better use a variable and get the number for it using
Code:
dim nMyFile as long
nMyFile = freefile
from msdn
Returns anInteger representing the nextfile number available for use by the Open statement.
Syntax
FreeFile[(rangenumber)]
Remarks
Use FreeFile to supply a file number that is not already in use
HTH
Gonzalo