Actually... a better way would probably be to dim a variable as string... call it myDesk or something... and then :
myDesk = CreateObject("WScript.Shell").specialfolders("Desktop")
TimeFileName = myDesk & Application.PathSeparator & TimeFileName