Ya hay algunas cosas colgadas en la web así que ya vuelve a estar disponible.
Dim RetvalRetval = Shell("explorer.EXE /e, /root, C:\TuCarpeta", 1)