在VB6中如何才能识别和使用USB串口?

我想需要使用到USB的串口,但是直接使用
i = GetObject("winmgmts:\\.\root\cimv2:Win32_SerialPort").Instances_.Count '只能得到真实的串口数,不能得到USB和其它虚拟的串口数,就算我知道USB串口是4,用
MSComm1.CommPort = 4
MSComm1.PortOpen = True
得到的也是无效的串口号,新手求教如何才能找到和使用USB串口?谢谢!