Me había faltado esta parte
tales como Configuración Local, Mi Música, etc
Si miras el listado de valores para specialfolders, verás que no están las carpetas que mencionas, me paso a mi también en su momento el no encontrar las dichosas carpetas, es por eso que esta fue la única solución que se me ocurrió....
Las rutas a esas carpetas se guardan en el registro de windows, así que lo único que hay que hacer es leer la clave correspondiente
, aquí va el code
Set wshshell = createobject("wscript.shell")
imagenes = wshshell.regread("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\My Pictures")
musica = wshshell.regread("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\My Music")
msgbox "Mis imagenes ---> " & imagenes& chr(13) & "Mi musica ---> " & musica
Saludos otra vez