‘Enumerazione del tipo di arrotondamento desiderato
Public Enum TipoArrotonda
    Difetto = 0
    Eccesso = 1
    Matematico = 2
End Enum

Function Arrotonda(Valore As Double, Arrotondamento As Double, Optional Direzione As TipoArrotonda = Eccesso) As Double
    On Error Resume Next
    Dim Temp As Double
    Temp = Valore / Arrotondamento
    If Int(Temp) = Temp Then
        Arrotonda = Valore
    Else
        Select [...]