利用VB串口通信控件MSComm，以二进制方式传输一个900KB左右的文件

你的代码问题太多了。
Open "c:\a.dat" For Binary As #1 ‘打开a.DAT文件
ReDim b(LOF(1))
Get #1, , b
Close #1
''''''''''''''''''''''''
Private Sub MSComm1_OnComm() ‘数据大了会被多次触发，
Dim buffer As Variant
Dim a() As Byte
buffer = MSComm1.Input
a=buffer
call 存储(a)
end sub
Private Sub 存储(a() as byte)
Open "d:\b.dat" For Binary As #filen
Put #filen, LOF(1), a()
Close
end sub
'电脑没按VB， 没调试，有错误自己修修把

太阳雨多年积攒极其珍贵的原创VB串口通信技术资料V3.0(800M)

1.VB串口通信编程源码200个,多种行业多种应用...
2.VB串口通信技术文章160篇,详尽地对VB串口通信的诠释...
3.VB串口通信电子书籍16部,工业通信名家著作,经典细致...
4.VB串口通信控件16个,简化串口通信编码,提高开发效率...
5.VB串口视频教程46个,两套完整视频教程,讲解直观,更快掌握...
6.OSI网络模型教程48M,帮助你学习网络通讯基础...
7.串口硬件层知识资料包24M,对RS232,RS422,RS485等串行接口的完美解释...
8.串口调试工具80个,应用于各种串口调试与校验计算...
9.程序员发展类文章和书籍12部,帮助您的成长,健康和发展....
10.更送虚拟串口调试软件, 帮助你在没有串口的电脑上也能正常调试...

你在淘宝搜索“太阳雨串口资料”就可以找到，希望可以帮助到你。