用VB,编写程序，实现2，10，16进制的转换，不要太简单的那种

'直接调用以下函数过程即可'二进制转十进制Public Function B2D(vBStr As String) As Long Dim vLen As Integer '串长 Dim vDec As Long '结果 Dim vG As Long '权值 Dim vI As Long '位数 Dim vTmp As String '临时串 Dim vN As L