用VB怎么把二进制转化为十进制

VB把二进制转化为十进制的方法： ' 用途：将二进制转化为十进制 ' 输入：Bin(二进制数) ' 输入数据类型：String ' 输出：BIN_to_DEC(十进制数) ' 输出数据类型：Long ' 输入的最大数为1111111111111111111111111111111(31个1),输出最大数为2147483647 Public Function BIN_to_DEC(ByVal Bin As String) As Lon