急急急！！为什么我调用函数将16进制转换成二进制总是数不对！！！

Private Function Ten2Two(ByVal varNum As Long) Private Function Ten2Two(ByVal varNum As Long)