进制转换有关问题

进制转换问题
我要将一个文本框中的字符(16)转换成十进制16,然后将这个十进制的16转换成十六进制的10,要如何实现??谢谢

[解决办法]
用Hex函数, 例如:

Private Sub Command1_Click()
Dim iValue As Long
iValue = CInt(Text1.Text)
MsgBox Hex(iValue)
End Sub