Brugbare COM-Porte? (MSComm)

WOLLA!

Jeg er skal bruge en liste over de COM-porte der er til rådighed på den maskine mit program kører på, så brugeren har mulighed for at vælge mellem dem. På nettet fandt jeg denne funktion, der skulle returnere True hvis porten eksisterer og False hvis den ikke gør - Den kalder jeg så for COM-Port 1 til 4, men den returnerer altid False. Er der nogen der kan spotte en evt. fejl, eller har en bedre løsning?

Funktionen ses her:

Function CheckPort(PortNumber As Integer) As Boolean
    On Error Resume Next
    MSComm.CommPort = PortNumber
    MSComm.PortOpen = True
    If Err = 0 Then
        CheckPort = True
        MSComm.PortOpen = False
    End If
End Function