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