Dim Result As Long
Result = Int(Cdbl("280.90") * Int("1000"))
とすると、Resultは 280899 となります。
なぜこうなるか、わかる方いたらお願いします。

結局コードは、
Dim Result As Long
Dim R As Double
R = Cdbl("280.90") * Int("1000")
Result = Int(R);
という風にしましたが、気になったので・・・