Listar programas .exe

Hola.

A raíz de ver una macro (ver abajo) que abre determinados documentos (doc, txt,...), me ha surgido una pregunta:

¿Hay alguna manera de listar las rutas de todos los programas ejecutables (o al menos los más habituales) que tenga en el ordenador (notepad, winword, excel , etc)?

Sub abreDoc()
    Dim Archivo As String
    Archivo = Application.GetOpenFilename()
    Shell "winword.exe " & Archivo, 1
End Sub[/PHP]

Saludos.