VB上位机与51的数据传送接收到的是数据对应的ASCII码

Sub shuchu()
Dim k As Integer
Dim senddata(0 To 4) As String
For k = 0 To 4
senddata(k) = HScroll1(k).Value
MSComm1.Output = Hex(senddata(k))
Form1.Print Hex(senddata(k))
Next k
上面这个VB程序发送数据后接收到的怎么一直是数据对应的ASCII码呢？
void ser() interrupt 4
    {
  RI=0;
  t=0xSBUF;
}