Visual Basic - *******AYUDA URGENTE CON ARCHIVOS****

Hola señores del foro, tengo algo para que ustedes me ayuden, por favor no se como poner el nombre de lors archivos de una carpeta cualquiera en un listbox u otro control parecido, es decir doy un ejemplo:

digamos que en "C:\HerramientaPlanificacion", tenga los archivos de access "BD1.mdb","jorge.mdb" y "Primero.mdb", entonces lo que necesito es tomar el nombre de esos archivos (sin la extension) y añadirlos a un control como el listbox u otro, agradeceria mucho si se puede hacer esto, gracias por anticipado.

Dim MiArchivo, MiRuta, MiNombre
' Devuelve "WIN.INI" si existe.
MiArchivo = Dir("C:\WINDOWS\WIN.INI")

' devuelve el nombre de archivo con la extensión especificada. Si hay más de un *.ini
' el archivo existe, devuelve el primer archivo que se encuentra.
MiArchivo = Dir("C:\WINDOWS\*.INI")

' Utiliza otra vez el comando Dir, sin argumentos, para devolver el
' siguiente archivo *.INI situado en el mismo directorio
MiArchivo = Dir

' Devuelve el primer archivo *.TXT que tenga el atributo de oculto.
MiArchivo = Dir("*.TXT", vbHidden)

' Muestra los nombres en C:\ que representan directorios.
MiRuta = "c:\" ' 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

En vez de utilizar "Debug.Print" pudes utilizar por ej. combobox.additem