声明一个变量数组其类型为Byte。然后将你要的数据逐一赋值到这个数组，将MSComm控件串行模式属性：InputMode 设为 二进制模式，也就是值为1的那个，然后将这个变量数组输出到 OutPut 就行了。如：

dim DA(4) as Byte
DA(0)=&HAA
DA(1)=&HAA
DA(2)=&H04
DA(3)=&H02
DA(4)=.....

MSComm1.OutPut=DA()

*注意在VB中十六进制要用 &H 开头表示

发接为二进制发送，自然接收也是一样的，所以接收的也应该是一个Byte类型的不定变量数组，接收后可用 Ubound 语句来获取字节数，接收的数据以 变量(下标) 形式取得，不能将数组直接赋值于一个变量或控件的字符属性中。如：

Dim AD() As Byte
Dim Ik As Long
AD=MSComm.Input
For Ik=0 To Ubound(AD)
Text1.text=text1.text & Chr(AD(Ik))
Next

Dim a() As Byte
a = ChrB(&H2) & StrConv("12123", vbFromUnicode) & ChrB(&H3)
Winsock1.SendData a