VB串口通信数据丢包问题，求大神帮忙！急急急！

部分程序如下：
Dim DataBuf As String
Dim Buf As String
Dim GetCRC As String
Dim SlaveDataTemp As String
Dim Pic_flag As Boolean
With MSComm1
Select Case MSComm1.CommEvent '判断MSComm1通信事件
Case comEvReceive '收到Rthreshold个字节产生的接收事件
Buf = .Input
If InStr(1, Buf, "!") < 1 Then ‘判断从第一个起数据里的!<1,把数据打包起来
TempData = TempData & Buf
Exit Sub
End If

Address = Mid(TempData, 2, 2) 'Mid截取字符串的长度！从机地址
FunctionCode = Mid(TempData, 4, 2) ‘功能码
Pic_flag = False
If FunctionCode = "wr" Then
TextReceive.Text = TextReceive.Text & Trim(TempData) & Chr(13) & Chr(10)
End If
这个是功能码是wr时，把接收到的数据显示出来，为什么我的丢包特别严重呢？是不是应该加个什么判断语句啊？我的结束未是！
求大神帮忙，很急很急！

好几年没用过VB6.0了，具体代码想不起来了，如果用C#的思想应该是加个While循环等待数据接收，也就是分包和组包。如果几个字符串是不用这样麻烦的，但是如果有图片等较大信息就必须分包，组包。
size=0//已接收包的总长度
while(size<当前数据长度){
一直接收！！
已接收包=已接收包+本次循环内接的包
size=size+本次循环内接收的包长度
}
想来各种语言的思想都是一样的。