VB寫一個串列埠傳送程式碼，遇到一個問題，如何將文字中的字串轉化成16進位制資料傳送。

Dim bindate(200) As String
Dim senddata As String ‘定義輸入字串變
senddata = Replace(TxtSend.Text, ” “, “”) ‘已經將字元中間的空格都已經去掉了
Dim hexdate() As Byte
Dim I As Integer

   ReDim hexdate(0 To (Len(senddata) / 2 - 1))
         For I = 1 To (Len(senddata)) Step 2
            hexdate((I - 1) / 2) = Val("&H" + Mid(senddata, I, 2))
            Next I
 

轉化後，hexdate資料如下圖所示

轉化成功。