Visual Basic - Obtener progamas instalados

Hola, como puedo hacer un programa en VB que me obtenga una lista de los programas instalados (los que se ven a través del panel de control, agregar o quitar programas) y mandarlos a un fichero de texto???

Gracias anticipadas

Los programas instalados está en la rama:

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Uninstall

cuando recorres las claves encuentras los programas.