vb进制转化函数