要防止出现报错，先判断一下端口是否已经打开。如果打开则关闭
If MSComm1.PortOpen Then MSComm1.PortOpen = FalseEnd If
或者，加一个错误处理
On Error Resume Next '打开错误捕获MSComm1.PortOpen = FalseOn Error Goto 0 '关闭错误捕获
