VB6如何检测串口拔下

[ccbbcc]

我要实现一种功能，正常通信时显示正常通信，拔下显示通信错误

再插上显示通信正常

我的代码如下：

Private Sub Timer1_Timer()

    If commfaultflag = True Then
        commfaultflag = flase
    
        If SendFlag = 1 Then
        MSComm1.PortOpen = True
        
       
        MSComm1.Output = send
       
       End If
    Else
        If SendFlag = 1 Then
        
            If Err.Number = 8021 Then

                Label41.ForeColor = vbRed
                  Label41.Caption = "通讯故障"
                MSComm1.PortOpen = False
                commfaultflag = True
            Else
            
                MSComm1.Output = send
            End If
        
       End If
    End If


End Sub

可是不行，在MSComm1.Output=send时出错

请问如何解决？谢谢