Visual Basic - Recursividad en Directorios

Estoy buscando como al elegir un Directorio dentro de un DirListox me de todos los directorios y subdirectorios que contiene ese Directorio "Padre" y me los vaya añadiendo a un ListBox. Lo estoy intentando hacer en VB 5.

Muchas Gracias y Un Saludo.

Usa la Funcion Dir, usando como camino el obtenido en el dirlistbox.
Se utiliza la funcion Dir hasta que te devuelve ""