Visual Basic - Lista de ficheros y subdirectorios de un directori

Muy buenas,

Como lo hago en visual basic 6, que pasandole un directorio que haga en un array o en un list.box ,una lista de sus archivos y subdirectorios (y los archivos de estos)

Muchas gracias

Yo tambien estoy en los mismo este script te puede ayudar lo que pasa en que solo va al primer fichero busca todos los archivos y se va a la raiz de C:,
Set fs = CreateObject("Scripting.FileSystemObject")
filename = Dir$("C:\", vbArchive) 'RUTA DE ARCHIVOS
Do Until filename = ""
.....
...
filename = Dir$
Y das con el me avisas