Есть функция округления

Function Round(Value As Variant, Decimals As Integer)

    Round = Int(Value * 10 ^ Decimals + 0.5) / 10 ^ Decimals

End Function

Как сделать, чтобы округлять кратно 5?

http://www.sql.ru/forum/1173977/okruglyat-kratno-5