vba十进制转二进制

sub stor ()
dim stor,shi as long

stor = ""

n = range("b3")

shi = range("a3")

do while stor >0

stor = shi mod n & stor

shi = shi / n

loop

range ("e3") =stor

end sub