Me respondo a mi mismo por si a alguien le interesa el tema.
Para saltar al próximo directorio se emplea la función Dir, sin argumentos.
Con ello y un ciclo, se logra recorrer la estructura de directorios.
No obstante, ello no incluye los subdirectorios, lo cual era otro problema, porque a mi me hacía falta incluirlos. La solución que encontré es la siguiente:
- La estructura de directorios - que es conocida - tiene como última carpeta una que se llama "999999 - END"
De modo que hago un ciclo que al llegar a esa carpeta, termine:
MyPath = "c:\Documents and settings\Administrador\Favoritos\" ' Set the path.
MyName = Dir(MyPath, vbDirectory) ' Retrieve the first entry.
Do While Left(MyName, 6) <> "999999" ' Start the loop.
Y luego voy cambiando MyPath por el nombre de las carpetas interiores y pasando a la base...
Nos vemos