重ね重ね申し訳ありません。m(__)m
また、何回も質問して申し訳ありません。
VB5.0SP2で出ている現象です。

Dim Value As Variant
Dim aaa As Variant
Dim bbb As Variant

Value = 50#のとき、（小数値が0.5のときです）
aaa = CLng(Value * 0.01)
bbb = CLng(Val(Value) * 0.01)
の答えが
aaa = 0
bbb = 1
になるのですが、Valueは両方ともVarient/Doubleになると思うのですが、
結果が違います。
どうしてなのでしょうか？