Dim fso As Scripting.FileSystemObject

Set fso = New Scripting.FileSystemObject
Set MyFile = fso.OpenTextFile(.....)


...

MyFile.Close