初めてですみませんが、よく分からないので教えてください。

Dim kohi As Variant

Dim aaa As Variant
Dim bbb As Variant

aaa = CLng((kohi - 241000) * 0.01)
bbb = CLng((Val(kohi) - 241000) * 0.01)

という式なのですが、CLNGする前は14044.5 になります。
CLngすると、
　aaa = 14044
　bbb = 14045
になります。
CLngは常に最も近い偶数に値を丸めるので、両方とも14044になると思ったのですが、
どのように違うのでしょうか。