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

[ctseu]

MSComm1.InputMode = comInputModeBinary‘InputMode 属性确定 Input 属性如何取回数据
comInputModeBinary，数据通过 Input 属性以二进制形式取回。

[wangluolaotu]

同意上楼

[best_su]

提示什么错误?
一楼说法没错