Il Desktop lo puoi ricavare con

dt = Environ$("USERPROFILE") & "\Desktop"