Yuvarla(byval Sayi As Double) As Double burada renkli double değerini currency Olarak değiştirip dener misiniz?

Function Yuvarla(byval Sayi As currency) As Double

    Yuvarla = -Int(-Sayi * 100 / 5) * 5 / 100

End Function