Vba, instrucción de visual para que me diga el nombre de la carpeta de mi escritro

Te anexo la macro, en el mensaje te aparece el nombre de la carpeta "escritorio", se compone de 2 partes una macro que llama a la función "escritorio" la función regresa vacío si no encuentra la carpeta escritorio.

Sub MiEscritorio()
'Por.Dante Amor
    carpeta = escritorio
    If carpeta = "" Then
        MsgBox "La carpeta escritorio no existe"
    Else
        MsgBox "Mi escritroio es: " & carpeta
    End If
End Sub
'
Function escritorio() As String
'Por.Dante Amor
'Referencia: http://www.ozgrid.com/forum/showthread.php?t=24985
    Dim objWSHShell As Object
    Dim strSpecialFolderPath
    On Error GoTo ErrorHandler
    Set objWSHShell = CreateObject("WScript.Shell")
        escritorio = objWSHShell.SpecialFolders("Desktop")
    Set objWSHShell = Nothing
    Exit Function
ErrorHandler:
    escritorio = ""
End Function

Saludos.Dante Amor