VB十六进制转化问题！？？

Question

VB十六进制转化问题！？？
近日写一段程序，遇到麻烦了！
有台仪表，编号设为50（可设定），通讯时当PC机发送对应的编号为2的命令（例如：2PT）时仪表才有反应。
也就是说，仪表编号的编码是以ASCII字符形式表示出来的十六进制数对应的十进制数。即：Ascii－Dec(Hex)：0－48(30)，1－49(31)，2－50(32)，……，9－57(39)
现在，我想在编程时写个函数进行码制转换，当上位机发送编号为2的命令时，即对应编号为2的仪表。但不知道怎么编写这个函数。
请求帮助！！

Answer 1

'十六进制转换成十进制
Public Function SixteenTurnTen(ByVal varNum As String) As String
    SixteenTurnTen = Val("&H" & CStr(varNum))
End Function