macro en Excel

Prueba a ver si te funciona con un Do-Loop:
Sub Prueba()
Dim X as Double, Suma as Double
X = 1
Do
suma = suma + X
X = X + 0.1
Loop until x = 5
End Sub

"Henry borrero farias" wrote in message
news:009701c34adf$c0bf70c0$
Tengo la siguiente macro
Sub Prueba ()
For i=1 to 5 step 0.1
suma = suma + i
next
msgbox suma
end

El problema consiste en que cuando corro la macro con
valores enteros menores que 5 las sumas no me incluyen el
valor final(sumando) 2,3 y 4 asi:
La suma de 1 hasta 2 da 14.5 y no 16.5 faltando el 2 y asi
para el tres (da 39 y no 42) y el cuatro (da 73.5 y no
77.5), a partir del 5 (da 123 como debe ser) ya suma el
valor final.
¿Sera esto un error? ¿o que tiene la macro?