请问如何获得本机上的COM端口列表？

Question

Private Sub Command1_Click()
    Dim i As Integer
    Dim j As Integer
    
On Error GoTo error1
    For i = 1 To 16
        MSComm1.CommPort = i
        MSComm1.PortOpen = True
        If MSComm1.PortOpen Then
            j = j + 1
            MSComm1.PortOpen = False
        End If
        Resume Next
error1:
        If Err = 8005 Then
            j = j + 1
        End If
            Resume Next
    Next
    MsgBox j
End Sub8005是已经打开的COM