在设备上增加条码器功能，条码器的开关定时器为16进制的，怎样编写程序控制，
求助大神！
barcode
开定时器:  16 54 0D(十六进制)
关定时器:  16 55 0D(十六进制)

我这样写开关定时器出错了：
'开定时器
Public Function Command_LON() As Integer
    Dim sErrorMessage As String
    Dim msgData As String
    Dim rc As Integer
    Dim bRc As Boolean
   
    rc = 0
    msgData = ""
    sErrorMessage = ""
    Dim sdat As String

    sdat = ChrW(27) &  “16 54 0D"                ' LON Command Data Send
        bRc = gclsLCR.SendMessage(sdat)
    If bRc = False Then
        GoTo Func_Err
    End If
    Debug.Print (sdat)

Func_Err:
    Command_LON = rc
End Function

'关定时器
Public Function Command_LOFF() As Integer
    Dim rc As Integer
    rc = 0
    Dim sdat As String
    Dim bRc As Boolean

    sdat = ChrW(27) & " 16 55 0D"                   ' LOFF Command Data Send
        bRc = gclsLCR.SendMessage(sdat)
    If bRc = False Then
        GoTo Func_Err
    End If
Func_Err:
Debug.Print (sdat)
    Command_LOFF = rc
End Function

谢谢版主了！我曾也有想过用数组的。我调试下，不行就转化为字符串。