Finding and using valid com ports

[NeedHelp!]

That does not return any usb serial ports.

Yes, it just checks (with the help of following loop), if the port is available or not:

For i = 1 to 4                      'usually there is a maximum of 4 COM ports
    If OpenPort(i) Then
        '... e.g. enabling CheckBox(i)
    End If
Next i

- I thought, this was your original question and its a little faster.

It displays the device name as well as the com port in the list box. From there com port number is extracted from the string value. Works very well.

It's good, but it is not perfect: on my system it also finds "COMODO Internet Security Firewall Driver" and "COMODO Internet Security Helper Driver" on port zero.
- You maybe should exclude all results with the COM port number zero, before it is listed in the ListBox to make it even better.