VB串口通信遇到的有关问题2

VB串口通信遇到的问题2
Private Sub MSComm1_OnComm() 
    Static num As Integer 
    Static indate0 As Integer 
    Static indate1 As Integer 
  Static wendua As Single 
    Dim Buffer As Variant 
    Dim Arr() As Byte 
    Select Case MSComm1.CommEvent 
        Case comEvReceive 
        
        Arr = MSComm1.Input 
        indate = Arr(0) '收到的二进制数转换成十进制数 
        If num = 0 Then 
        indata0 = Val(indata) 
            Text2.Text = indate0 
        ElseIf num = 1 Then 
        indata1 = Val(indata) 
            Text3.Text = indate1 
          wendu = (indata0 + indata1 * 256) * 0.0625 
        Text4.Text = wendu 
        End If 
        num = num + 1 
        If num >= 2 Then 
            num = 0 'num - 2 
        End If 
    End Select 
End Sub 
为什么这样TEXT2.TEXT3.TEXT4都显示0 
我就把上传的那两个数据计算一下，为什么如果不加indata0=indata,indata1=indata就是正确的;加了就错了 

[解决办法]
indata是二进制，你用val能转成整型给indata0吗？你要写个转换的小函数才可以。
[解决办法]


indata已经是10进制了