vb串口通信发送数据问题

代码如下
Dim data() As Byte '串口发送字节
ReDim data(0)
data(0) = &HA
MSComm1.Output = data
为什么我将data（0）=&H(text1.text)就会出错
怎样才能将&H后面改为变量。

问题分析: 1) 高位都为0 2) 多了四个字符, 肯定不是一对一转换的问题, 因为循环次数是buffer的长度。所以，buffer长度变长内容错了。
解决方法: mscomm属性inputmode改为binary；
附：VB参考：InputMode 属性确定用 Input 属性读取的数据类型。如果设置 InputMode 为 comInputModeText，Input 属性通过一个 Variant 返回文本数据。如果设置 InputMode 为 comInputModeBinary，Input 属性通过一个 Variant .返回一二进制数据的数组。

设置mscomm控件属性inputmode = cominputmodebinary 逐字节接收数据放byte数组进行数据处理。通常将接收的byte类型数据逐字节转为16进制数的字符形式，由vb的代码转为10进制数显示。摄氏温度数据可采用16位二进制数表示（16进制为2字节），范围为-32768 到32767间。 vb中用 &hxxxx表示16进制数，例： text1 = &hffff 文本框内显示其值为-1 text1 = &h12ff 文本框内显示其值为4863 上下位机约定小数位数，数据传送中不传递小数点。

data(0)=cbyte(text1.text)即可

2000人的群，名称是VB人生 号148317126，去那里问问

data(0) = val("&H" & Text1.Text)