Visual Basic - Añadir en ListBox

Hola, necesito sacar un listado de todos los archivos EXE que hay dentro de la unidad c:\ y añadirlos a un ListBox.

Si alguien me puede ayudar muy agradecido estare.

Fijate con esto:

Dim strRuta As String, strArchivo As String

Ruta = "c:\*.BIN"
Archivo = Dir(Ruta, vbNormal Or vbArchive)
Do While Archivo <> ""
List1.AddItem Archivo
Archivo = Dir
Loop

Lo siento pero no me explique bien. Yo lo que necesito es eso mismo pero de todo el disco duro incluyendo los EXE que pueda aver en cualquier directorio del disco duro, o sea un chequeo del disco duro completo para extraer todos los EXE para añadirlos al ListBox.

Gracias por ayudarme