Save textfile to user's desktop

[Av8tordude]

I have this code that saves a text file to drive C. I would like to save the text file to the User's desktop.

Open "C:\MyFolder\" & "EULA" & ".txt" For Output As #1
Print #1, EULA
Close #1

 

[John_w]

Open CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\EULA.txt" For Output As #1

 

[Av8tordude]

Thank you John for your help. Greatly appreciated.