Prova questa funzione:
codice:
Public Function Round2(value, nd As Integer)
    Dim n
    
    n = value * (10 ^ nd)
    n = -Int(-n)
    Round2 = n / (10 ^ nd)
End Function
Puoi usarla al posto della funzione Round, con la differenza che puoi usare valori negativi per nd:
Round2(981.17, 2) ---> 981.17
Round2(981.17, 1) ---> 981.2
Round2(981.17, 0) ---> 982
Round2(981.17, -1) ---> 990
Round2(981.17, -2) ---> 1000