vb 错误捕捉 代码

 On Error GoTo Err0:                       '   首先打开错误捕捉功能
  '.....
  MSComm1.PortOpen = True             '打开串口，一旦出错，就跳转Err0
  '.....
   
Err0:
  Select Case Err.Number
  Case 8005           '   串口已被占用的错误代码
     MsgBox "8005"       '   此处加入串口已被占用的处理
  Case Else
     MsgBox "无"
  End Select