Visual Basic - lista de carpetas

hola a todos...

alguien me podria decir cual es la funcion para obtener la lista de carpetas que hay dentro de otra carpeta ???

gracias

Function ListarDirectorios(MiRuta As String) As String
MiNombre = Dir(MiRuta, vbDirectory)
Do While MiNombre <> ""
If MiNombre <> "." And MiNombre <> ".." Then
If (GetAttr(MiRuta & MiNombre) And vbDirectory) = vbDirectory Then
ListarDirectorios = ListarDirectorios + MiNombre + vbNewLine
End If
End If
MiNombre = Dir
Loop
End Function
Private Sub Command1_Click()
Dim LaRuta As String
LaRuta = InputBox("Ingrese la ruta de la carpeta", "Ingresar")
MsgBox ListarDirectorios(LaRuta)
End Sub

Oye, una pregnta.....

Y como le puedo hacer para que me traiga todos los subfolders de estos que ya enlisto???