希望从一个txt文本文件里读取内容，然后按固定大小分成一帧一帧的传送出去：
已经有了读取txt文件和串口发送的程序：

Temp = CommonDialog1.FileName '将通用对话框打开的文件名赋给Temp

hSend = FreeFile

Open Temp For Binary Access Read As hSend '打开文件
BSize = MSComm1.OutBufferSize
LF& = LOF(hSend) 'LOF：返回文件的长度

Do Until EOF(hSend)
If LF& - Loc(hSend) <= BSize Then 'LOC：返回读或写的记录个数
BSize = LF& - Loc(hSend) + 1
End If

' 读取一块数据
Temp = Space$(BSize)
Get hSend, , Temp

'传送一块
MSComm1.Output = Temp

Loop

在下是个新手，上面的程序是从别人那找的
还差一个将读取的信息分帧并编号的功能自己不知道怎么做了
哪位高手能帮帮忙？
谢过了！