VB中如何将两个单字节合成一个双字节,例如我输入两个byte类型变量

Private Sub Form_Load()
Dim DisNumber as Integer 
Dim a As Byte
Dim b As Byte
a=&H80
b=&H0
DisNumber = (a * 256 + b) '将两个单字节合成一个双字节,就像C语言里把两个char类型合成一个int型
TxtDisplay.Text = Format(DisNumber, "##0")   '格式化字符串
End Sub
为什么老是提示溢出呢?我这句不就相当于:
void main()
{
int total;
char a,b;
a=0x80;
b=0x00;
total=a<<8+b;
printf("%d",total);
}
输出:-32768
为什么我在VB中想得出C语言这样的结果却不能实现呢,本人才学VB,对VB中还有很多不懂,希望你们能告诉我错在哪里,要怎么修改才能在TxtDisplay.Text 显示:-32768.0
抱歉,百度不能提交追问,所以我这样写,希望你能看到(网海1书生 )
你还没有弄明白我的意思!其实我是想把一个有符号整型数据劈开成两个单字节,然后再还原成int型,我利用你的代码把a给成0xff,b不变,得出结果是:65280,而正确的答案是:-256,你现在能明白我的意思吗?

存在两个问题：
1、VB在计算Byte类型数的运算时，也是按Byte类型的位数来存放计算结果的，很显然，计算结果已经超出Byte的范围了；
2、计算结果不但已经超出Byte的范围，也超出Integer的范围了，所以DisNumber变量要定义为Long类型才行。
所以改为如下：
Private Sub Form_Load()
Dim DisNumber as Long     '定义为Long型
Dim a As Byte
Dim b As Byte
a=&H80
b=&H0
DisNumber = a * 256& + b   '把表达式中的最大数256设为Long型，VB就会按Long型存放计算结果了
TxtDisplay.Text = Format(DisNumber, "##0")
End Sub 

补充：
那就再转换一下：
Private Sub Form_Load()
Dim DisNumber As Long     '定义为Long型
Dim a As Byte
Dim b As Byte
a = &HFF
b = &H0
DisNumber = a * 256& + b   '把表达式中的最大数256设为Long型，VB就会按Long型存放计算结果了
DisNumber = Val("&H" & Hex(DisNumber))         '转换为带符号整数（土法）
TxtDisplay.Text = Format(DisNumber, "##0")
End Sub