[ACCESS] Funzione ARROTONDA non definita nell'espressione

[gianphyth]

Salve,
in STRUMENTI DATABASE/VISUAL BASIC ho creato nuovo MODULO per definire la seguente funzione:

Function Arrotonda(numero As Variant) As Variant
If numero = "" Then
Exit Function
End If

Dim valore As Currency

valore = Fix(numero * 1000)

If Right$(valore, 1) >= 5 Then
valore = valore + 10
End If

valore = Fix(valore / 10) / 100
Arrotonda = valore
End Function

ma quando la richiamo in una query Access mi segnala in pop up: Funzione 'arrotonda' non definita nell'espressione.

Come posso risolvere?

P.S.: non consigliatemi di utilizzare la funzione ROUND in quanto sbaglia gli arrotondamenti sull'euro.