仁义礼智我固有之教案:急急急！VB:我把一个文本分成了五包，每包六百字节，最后一包不满怎么办？

这就是第五包：
Dim aa5(2400 To 2999) As Byte’六百字节
Dim fbyte() As Byte
ReDim fbyte(1 To 15)
Dim i As Integer

fbyte(1) = 72: fbyte(2) = 83: fbyte(3) = 84: fbyte(4) = 108: fbyte(5) = 1: fbyte(6) = 5: fbyte(7) = 5: fbyte(8) = 5: fbyte(9) = 5: fbyte(10) = 5: fbyte(11) = 5: fbyte(13) = aa5: fbyte(14) = 2: fbyte(15) = 0 ‘同步字+命令字+目的地址+数据长度+数据内容+校验
Text1.Text = fbyte

Dim code As Long’校验
Dim pcode As Byte
code = 0
For i = 1 To 15
code = code + fbyte(i)
Next i
pcode = code Mod 256
pcode = Not pcode
pcode = pcode + 1
fbyte(15) = pcode
Com.Output = fbyte

Open "d:\ab.txt" For Binary As #5 '第五包数据
Get #5, , aa5
Close #5
For i =2400 To 2999
Text1.Text = Text1.Text & Hex(aa5(i))
Next i
最后一包文件如果不够六百字节，比如就10各字节，读完前十个它后面就显示0000000000000.......到第六百结束。
我想让它有多少就读多少，不够也不显示00000000？
听说用Eof可以，但我不会用
请高手指教，谢谢了！！！！！
就是有少就读多少,读完了后面没有了,也不显示0000000