其實很簡單，宣告一個變數陣列其型別為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