怎么用十六进制向串口发送数据

如何用十六进制向串口发送数据
下面这段代码是以文本文式发送数据的,向MsComm1控件,请问可以改以用十六进制发送吗

dim   tStr   as   string
tstr= "ff   48   49   4b   31   00   00   00   02   00   00   00   31   32   33   34   35   36   37   38   39   30   00   00   00   00   00   00   31   62   00   00 "
Sub   send(txtin   As   String)
      If   MSComm1.PortOpen   =   True   Then
                      MSComm1.Output   =   txtin
                      DoEvents
        End   If
      DoEvents
End   Sub

[解决办法]
用以下方法转换为十六进制数据:

dim tStr as string
tstr= "ff 48 49 4b 31 00 00 00 02 00 00 00 31 32 33 34 35 36 37 38 39 30 00 00 00 00 00 00 31 62 00 00 "
v = Split(tstr, " ")
Dim buffer() As Byte
ReDim buffer(UBound(v))

For i = 0 To UBound(v)
buffer(i) = "&H " & v(i)
Next
buffer 就是十六进制数组
[解决办法]
楼上的方法可行
[解决办法]
楼上上正解