Creating text file

[CB Green]

i am creating a text file so that it can imported into excel but everytime
i get the path it tells me that it cannot be found here is an example of
the code

strFileName = Date & ".txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set txtfile = fso.createtextfile(frmReportSelection.Dir1.Path & strFileName,
True)

any help is most appreciated