How to return value from a cell same as it is in vba?

Question

How to return value from a cell same as it is in VBA?

For example:
A1 has "0.00000" But when I create a double and store this value in that, it stores as "0" But I want it with the same format.

Dim i as Double 
i = Range("A1").Value

Result: i = 0

Answer 1

You are confusing the value of a cell with the textural representation of the value.

If you want the latter then use

Dim s as String
s = Range("A1").Text

But note that a number is simply a number. The quantity of zeros after the decimal separator or the number of zeros before the number does not change the value of that number.