Otra forma de obtener los directorios especiales, es a través del Objeto Scripting, usando el FileSystemObject


Private Sub Form_Load()
Dim FSO
Set FSO =...