小数を整数に変換後、また小数に変換するのは大変危険です。


Dim a As Double
Dim b As Long
Dim c As Double

For a = 0.01 To 1 Step 0.01
b = a * 100
c = b / 100
If Str(a) <> Str(c) Then
MsgBox "なんじゃこりゃー"
End If
Next