一番左の桁に1を足したきりのいい数に繰り上げます。 (例)1254なら2000、84なら90
CLng(Left(iColValueMax, 1) & String(Len(CStr(iColValueMax)) - 1, "9")) + 1