Y para terminar de hacer las cosas bien... porque no consultamos el Registro?
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common Desktop
Os adjunto las otras variable útiles
Para leer el registro prefiero objetos antes que API's:
Private Sub Form_Load()
Dim Wsh As Object
Set Wsh = CreateObject("WScript.Shell")
Dim tmp As String
tmp = Wsh.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common Desktop")
MsgBox tmp
End Sub
Ojo que estas rutas son las de AllUsersProfile, lo que pongas ahí se verán en los directorios de TODOS los usuarios de ese PC, se necesitan permisos administrativos para modificar el contenido de esas rutas.