Just for info, different results in a simple code.

[VBA]
Sub Test1()
Dim rs As Single
Dim i As Long
Do While rs <= 0.5
i = i + 1
Cells(i, 1) = rs
rs = rs + 0.05
Loop
Test2
End Sub

Private Sub Test2()
Dim rs As Double
Dim i As Long
Do While rs <= 0.5
i = i + 1
Cells(i, 2) = rs
rs = rs + 0.05
Loop
End Sub

[/VBA]