VB如何向串口发送二进制数据

Question

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 #1Dim 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

Answer 1

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