Excel VBA で Desktop の Path を取得するコード

Private Sub test_DesktopPath()
    Debug.Print DesktopPath
End Sub

Private Function DesktopPath() As String
    DesktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
End Function