excel MSCOMM控件,结果总是不受信任

问题遇到的现象和发生背景

为什么我在EXCEL里面加入了MSCOMM控键,结果总是不受信任

问题相关代码，请勿粘贴截图

Private Sub UserForm_Click()

End Sub

Private Sub btn_Close_Click()
MSComm1.PortOpen = False '打开串口
btn_Start.Enabled = True '连接按钮响应
btn_Close.Enabled = False '断开按钮变灰
End Sub

Private Sub btn_exit_Click()
If MSComm1.PortOpen = True Then '如果串口被打开
MSComm1.PortOpen = False '关闭按钮
End If
Unload UserForm1 '关闭窗体
End Sub

Private Sub btn_Start_Click()
iniMSComm '对串口控件设置
MSComm1.PortOpen = True
btn_Close.Enabled = True
btn_Start.Enabled = False
End Sub

Private Sub iniMSComm() '对串口控件设置
MSComm1.CommPort = 1 '占用的串口号，1表示COM1
MSComm1.Settings = "115200,n,8,1" '这个自己根据自己的情况设置

MSComm1.RThreshold = 1
MSComm1.InputLen = 0
'MSComm1.PortOpen = True'这句话放到连接按钮事件中去
MSComm1.InputMode = comInputModeText
MSComm1.RTSEnable = True
MSComm1.InBufferCount = 0
End Sub

Private Sub MSComm1_OnComm() '事件处理
Dim t1 As Long, com_string As String
Static i As Integer
t1 = Timer
Select Case MSComm1.CommEvent
Case comEvReceive '如果接收到数据则执行下列语句
MSComm1.RThreshold = 0
Do
DoEvents
Loop While Timer - t1 < 0.1
com_string = MSComm1.Input
MSComm1.RThreshold = 1
i = i + 1: If i > 255 Then i = 1
Application.Cells(3, i).Value = com_string '写到Excel中去
txtRec.Text = txtRec.Text + com_string '写到文本框中去
End Select
End Sub

运行结果及报错内容

无

我的解答思路和尝试过的方法

下载 sp6.0 及补丁 还是无法信任控件

我想要达到的结果

mscoom控件能得到信任 正常使用

为什么我在EXCEL里面加入了MSCOMM控键,结果总是不受信任
参考：
http://t.zoukankan.com/wuzx-p-15513926.html