Dim s As Single
Dim i As Long
　　For i = 0 To 9
　　　　s = s + 0.01
　　Next i

カナシス・・・。
業務系は浮動小数は極力使わないよ・・・