VB串口通信报错

VB串口通讯报错
笔记本电脑没有串口，我用蓝牙管理软件来虚拟了一个串口，与另外一个蓝牙温度传感器设备连接，用于获取温度。蓝牙管理软件安装完毕后，可以与传感器顺利进行连接，并获取数据，我用串口调试助手打开相应的串口，可以顺利看到温度数据。

之后准备用vb自己编写程序，来获取温度。mscomm参数设置与串口助手中设置的一致。可以打开相应的串口，但是一旦接收到数据，就会报错，8020号错误，读comm设备错误。

text2中可以看到结果为1 ，说明通讯已经建立，端口打开都没有问题的。


Private Sub Comm1_OnComm()
Dim buffer As String
Text2.Text = Comm1.InBufferCount
buffer = Comm1.Input  出错语句。
 Text1.Text = buffer
End Sub


Private Sub Form_Load()
Comm1.CommPort = 2
Comm1.Settings = "9600,N,8,1"


Comm1.RThreshold = 1  '设置接收一个字节就产生OnComm事件

    Comm1.PortOpen = True  '打开端口
    If PortOpen = False Then   '判断通信口是否打开
        If Err Then    '错误处理
            MsgBox "串口通信无效"
            Exit Sub
        End If
    End If


End Sub
[解决办法]
你看控制面板里有没有能通讯的功能模块
没有的话就安装驱动吧