以下是读取Binary Data

Dim Buffer as Variant

Dim Arr() as Byte

' 设定并开启连接埠

MSComm1.CommPort = 1

' 连线速度 9600 baud、无同位检查、资料位元 8、停止位元 1

MSComm1.Settings = "9600,N,8,1"

告诉控制项当使用 Input 时，读取整个暂存区

MSComm1.InputLen = 0

MSComm1.PortOpen = True

' 设定 InputMode 以读取二进位资料

MSComm1.InputMode = comInputModeBinary

' 等待直到输入暂存区有 10 个位元组

Do Until MSComm1.InBufferCount < 10

  DoEvents

Loop

' 往暂存区存二进位资料

Buffer = MSComm1.Input

' 指定给位元组阵列以便处理

Arr = Buffer

MSComm1.PortOpen = False

而送出Binary的资料则没有像InputMode的属性，在VB5.0中

Output属性是接Varant所以直接将ByteArray传送出去就好了，

所以重点变成如何将想传的资料放入ByteArray

Dim Buffer(5)

Buffer(0) = 210

Buffer(1) = 150

Buffer(2) = 68

Buffer(3) = 56

MSComm1.Output = Buffer