VB关于串口操作 - VB / 基础类

用VB做一个小程序，发送和读取串口中的数据，发送数据没有问题，在读取数据时有时会出错，串口设备中它每次都会发送一条指令出来，而且是以“#”作为开结符，以“0D+0A”（回车换行）作为结束符，但有时缓存区内有些不是符合的命令，现在怎样从缓存区里一条一条地读取出来？现在我只能把缓存里面的全部数据都一起拿出来，但其中有很多不是我想要，而且不单是一条数据！
VB code:

dim com_string '存储读取数据
Dim t1 As Long, com_String As String
t1 = Timer
Select Case MSComm1.CommEvent
Case comEvReceive '收到 RThreshold定义的字符数1字节
Do
DoEvents
Loop While Timer - t1 < 0.05
com_String = MSComm1.Input
End Select

---

对了，还有一个问题，怎样才能把缓存区里的全部数据拿出来，就是我取出一个数据后然后再处理，但可能串口设备这时会发过一个数据过来，但处理完之后又有一个数据发送过来，这时怎样取出中间那个数据！

---

引用

对了，还有一个问题，怎样才能把缓存区里的全部数据拿出来，就是我取出一个数据后然后再处理，但可能串口设备这时会发过一个数据过来，但处理完之后又有一个数据发送过来，这时怎样取出中间那个数据！

 MSComm1.InputLen = 0 
'为 0 时，使用 Input 将使 MSComm 控件读取接收缓冲区中全部的内容。

---

引用

对了，还有一个问题，怎样才能把缓存区里的全部数据拿出来，就是我取出一个数据后然后再处理，但可能串口设备这时会发