Abrir el explorador de windows en una carpeta concreta
BUHO

Dim Retval
Retval = Shell("explorer.EXE /e, /root, c:\TuCarpeta", 1)