Hiya, I would really like to help, but I dont understand what your trying to do. In your code snipet below there are some problems though;
'calculate number of places
In = InputBox("Value:")
Dim Places As Integer
i = 0
k = 2 ^ i 'Will always = 1, 2 ^ 0 = 1
Do
k = k * 2 '...