向求救，串口调用Writefile 是否只能发送字符的ASIIC，怎么能够发送超出ASIIC定义的16进制，

向各位大哥求救，串口调用Writefile 是否只能发送字符的ASIIC，如何能够发送超出ASIIC定义的16进制，急！！
各位大哥，小弟最近用API函数调试串口，想做一个按输入的16进制字符串输出也是16进制的工具，使用Writefile写串口，但发现只能输入ASIIC范围内的字符串，试验时发现在“00”-“7F”没有问题，但超出7F就输出不正常，发现是受到ASIIC转换的限制，想问Writefile 是否能够向串口写入输出非ASIIC的字符，应该如何调整，附上部分代码请教，谢谢！
Public Declare Function WriteFile Lib "kernel32" _
  (ByVal hFile As Long, ByRef lpBuffer As Any, _
  ByVal nNumberOfBytesToWrite As Long, _
  ByRef lpNumberOfBytesWritten As Long, _
  ByRef lpOverlapped As Any) As Long 'OVERLAPPED) As Long

Private Sub cmdSend_Click()
  Dim sSend As String
  Dim lenBuf As Long '存放将要写入串口的数据长度
  Dim NumberWritten As Long '用来记录写入的字节长度
  Dim sSendchr As String
  Dim sSendchrTEMP As Long
  NumberWritten = 0
  sSend = Trim$(txtInput.Text) '输入的16进制字符串数
  lenBuf = Len(sSend) - 1
  sSendchrTEMP = CInt("&H" & sSend) '字符串转换为16进制数
  sSendchr = Chr(sSendchrTEMP) '取得ASIIC值
  PurgeComm nSendHand, PURGE_RXABORT Or PURGE_RXCLEAR '清空缓冲区
  If WriteFile(nSendHand, ByVal sSendchr, lenBuf, NumberWritten, ByVal 0&) <= 0 Then
  MsgBox "向串口写数据发生错误！"
  End If
  Exit Sub
err:
  MsgBox err.Description
End Sub


[解决办法]
nSendHand 如何打开的，应该有参数指定数据位数，你现在的数据位数是 7，将它改成 8。
[解决办法]
用 ChrW()
[解决办法]
不用字符串的方式,改用字节数组的方式发送就没这问题。也就是WriteFile中的Byval sSendChr这个参数改成字节数组或整形数组。