Common Dialogのデフォルトパスをディスクトップに。

Common Dialogを使用してファイル選択ダイアログのデフォルトの出力パスをディスクトップに設定する。

CommonDialogFile コモンダイアログコントロール

CommonDialogFile.InitDir = CreateObject("WScript.Shell").SpecialFolders("Desktop")
または
CreateObject("WScript.Shell").SpecialFolders("AllUsersDesktop")
で。