VB串口PortOpen问题

在VB中可以循检存在的16个串口

程序是
    For i = 1 To 16                     
        MSComm.CommPort = i                  
        MSComm.PortOpen = True

但是现在程序会停在  MSComm.PortOpen = True  这一行
并且提示错误  8002   无效的端口号    

那位高手能提示一下是什么原因导致的

另外，可以检测到的COM口是Com3 如果让i 固定等于3  这条语句就能够通过 --------------------编程问答-------------------- 该用on error 的时候就得用 --------------------编程问答-------------------- 不是所有的电脑都有16个串口的 --------------------编程问答-------------------- 串口数量没有你循环的那么多，比如i=4的时候需要有COM4，如果没有打开时就会报错误

补充：VB ,  非技术类