Listar nombres de puertos disponibles de pc

[obelix]

Hola a todos.Estoy programando una macro en Excel para listar los números de los puertos serie disponibles de mi pc (COM1, COM4, COM14, etc.). he intentado con este código

Dim TotalPuertos

Application.COMAddIns.Update

TotalPuertos = Application.COMAddIns.Count

ComboBox1.Clear

For i = 1 To TotalPuertos

ComboBox1.AddItem Application.COMAddIns(i)

Next i

Pero no soy capaz de que me salga como COM1, COM4, COM14, etc. o incluso como 1, 4, 14, etc.

¿Alguna idea?

Saludos

[Antoni]

Con esta macro no va a ser posible:

Application.COMAddIns no se refiere a puertos COM si no a COMplementos instalados en la aplicación.

Busca en Google, debe haber alguna API para averiguar si el puerto está o no disponible.