Well, you've already set strFilename to a valid name so that's what you should be using
Code:
            Open App.Path & "\" & strFilename For Binary As #intFile
which works like a dream !!