Public Function mRound(ByVal dblNum As Double, ByVal dblMtp As Double) As Double

    mRound = dblMtp * Math.Round(dblNum / dblMtp, 0)

End Function

şenlinde düzeltip deneyin