そりゃClngやってりゃ整数になる罠

ClngじゃなくCdbl（だっけ？）でDoubleに型変換しないといけないんじゃないか？
ついでにいうとVariantは最低限のとき使ったほうがいいんじゃないか？