VB 16进制转成10进制的问题

Question

我Text1.text中进入:"FFFF"的时候提示"-1",为什么不能转换成10进制呢?
我输入01FF时可以转换成10进制.我的最终目的是想把:例如:"02000b000000000001314100ff8503"转换成10进制我的代码如下:
Private Sub Command1_Click()    Dim myhex$
    Dim mydec&
  myhex$ = Text1.Text
  mydec& = Val("&H" & myhex$)Text2.Text = mydec&
End Sub

Answer 1

我输入:FFFF的时候,
结果:是 -1

Answer 2

我结果转换成clng()还是不行
代码如下:
Private Sub Command1_Click()
    Dim myhex$
    Dim mydec&
  myhex$ = Text1.Text
  mydec& = Val("&H" & myhex$)Text2.Text = CLng(mydec&)
End Sub

Answer 3

VB中默认的整数是16位的，所以 &HFFFF = -1 。你在后面加个 & 就行了。&HFFFF& = 65535

Answer 4

5楼的哥们说得对，这样写就可以了。
Private Sub Command1_Click()
    Dim myhex$
    Dim mydec&
  myhex$ = Text1.Text
  mydec& = Val("&H" & myhex$ & "&")
Text2.Text = mydec&
End Sub