串口初始化程序段

If Not MSComm3.PortOpen Then

    MSComm3.CommPort = 2 

  MSComm3.Settings = "115200,n,8,1"

  MSComm3.InBufferCount = 0 '清除接收缓冲区

  MSComm3.OutBufferCount = 0 '清除发送缓冲区

  MSComm3.InputMode = 0 '二进制接收

  MSComm3.PortOpen = True  '打开串口

    MSComm3.RThreshold = 29

  MSComm3.RTSEnable = True

  DoEvents

END IF

接收部分程序段

Private Sub MSComm3_OnComm()

Dim buf3$

Select Case MSComm3.CommEvent

Case comEvReceive

        buf3 = Trim(MSComm3.Input)

End Select

Text7.Text = buf3

End Sub

这个程序可以收到数据。我的条码由29个字符组成，用串口调试助手也收过，字符数量没错。但是经常出现乱码，而且是一部分乱码。

感觉收到的字符不止29个似的，串口调试助手中收到的字符数的确是29个没错

请帮忙看看。我对VB不熟，这个程序段也是仿照网上的写的。

因为积分不够不能发求助帖悬赏啦，谢谢各位