Function myDesktoppath() As String
    Dim objWSHShell As Object
    Set objWSHShell = CreateObject("WScript.Shell")
    myDesktoppath = objWSHShell.SpecialFolders("Desktop")
    Set objWSHShell = Nothing
    Exit Function
errorHandler:
    myDesktoppath = ""
End Function