如何处理vb串口中出现的错误，比如无效的端口号，不能因此而停止执行程序，而应提示用户更改串口号

---

On Error GoTo ggg
MSComm1.Settings = "镇差9600,n,8,1" ' 设置波特率和字符发送格式
MSComm1.CommPort = 5 ' 设置通信串口
MSComm1.InputLen = 0 ' 设置或返回一次从接收缓冲区中读取字节数，0表示一次读取所有数据
MSComm1.InBufferSize = 1024 ' 设置接收缓冲区1024Byte
MSComm1.InBufferCount = 0 ' 返回接收缓冲区内的等待读取的字节个数，可通过设置码旅凯该属性为0来清除接收缓冲区。
MSComm1.OutBufferSize = 1024 ' 设置发送缓冲区1024Byte
MSComm1.OutBufferCount = 0 ' 返回发送缓冲区内等待发送的字符数，可用来清空缓冲区。
MSComm1.RThreshold = 1 ' 每个字符到接收缓冲区都触发接收事件
MSComm1.SThreshold = 1
MSComm1.InputMode = comInputModeBinary
MSComm1.PortOpen = True '打开串口
Exit Sub
ggg:
MsgBox "无效端口号" & vbCrLf & "请迟唤更改端口号"

---