da sugestão de DavidPostill, essas duas coisas diferentes funcionaram.
Desktop é uma pasta especial, por isso:
Set objShell = CreateObject( "WScript.Shell" )
objShell.SpecialFolders("Desktop")
Para outras pastas nos usuários, podemos expandir as strings do ambiente
Set objShell = CreateObject( "WScript.Shell" )
objShell.ExpandEnvironmentStrings("%APPDATA%")