Operation valid only when the port is open On Error GoTo ErrExit
   
   If MSComm1.PortOpen = True Then     '关闭端口               
         
     MSComm1.PortOpen = False      '关闭端口
        
   End If
     请大家指点一下