MSComm1.PortOpen = FALSE '关闭
MSComm1.PortOpen = True  '再打开