Visual Basic - Buscar en un Subdirectorio con DIRLISTBOX

Me gustaria saber como puedo buscar en un subdirectorio mediante código ,puro y duro, a través de los controles DirlistBox,FilelistBox

A ver si es esto lo que buscas.
Necesitas un DriveListBox también para seleccionar la unidad.En el evento Change del DriveListBox iría este código:

drvList será el DriveListBox
dirList será el DirListBox
File1 será el FileListBox

On Error GoTo DriveHandler
dirList.PATH = drvList.Drive
Exit Sub
DriveHandler:
MsgBox "Esta unidad no está disponible.Asegúrese que el disquete o el CDRom están introducidos correctamente.Si se trata de una unidad de red asegúrese que está conectado correctamente y revise las conexiones.", vbCritical, "Error de dispositivo"
drvList.Drive = dirList.PATH
Exit Sub

Código para el evento Chage del DirListBox:

File1.PATH = dirList.PATH

y así el file1 te muestra todos los archivos del directorio seleccionado.

Espero que te sirva de algo.