VB向串口发送二进制数据

[zhusugen1983]

VB如何实现向串口发送二进制数据，请大家帮我看看下面的代码错在哪了。
Dim MyFile() As Byte
Open "F:\Documents and Settings\zhusugen\桌面\first3.dat" For Binary As #1
ReDim MyFile(LOF(1))
Get #1, , MyFile
Close #1

Dim Buf As Variant
Buf = MyFile
MSComm1.CommPort = 1
MSComm1.OutBufferSize = 1024
MSComm1.InBufferSize = 512
MSComm1.RThreshold = 1
MSComm1.SThreshold = 1
MSComm1.InputLen = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
MSComm1.OutBufferCount = 0
MSComm1.InBufferCount = 0
MSComm1.Output = Buf

[色郎中]

有这么麻烦么