Visual Basic - Necesito ayuda sobre directorio

necesito listar todos los subdirectorios que hay en un directorio que yo tengo que es : "C:\Varios\"
en varios hay muchos subdirectorios y me interesaria saber como listarlos en un listbox

eSTE ES EL EJEMPLO QUE VIENE CON EL MSDN. ADAPTALO A TU PROYECTO

MiRuta = "c:\varios\" ' Establece la ruta.
MiNombre = Dir(MiRuta, vbDirectory) ' Recupera la primera entrada.
Do While MiNombre <> "" ' Inicia el bucle.
' Ignora el directorio actual y el que lo abarca.
If MiNombre <> "." And MiNombre <> ".." Then
' Realiza una comparación a nivel de bit para asegurarse de que MiNombre es un directorio.
If (GetAttr(MiRuta & MiNombre) And vbDirectory) = vbDirectory Then
Debug.Print MiNombre ' Muestra la entrada
End If ' solamente si representa un directorio.
End If
MiNombre = Dir ' Obtiene siguiente entrada.
Loop

Afogutu