Prometto che poi, non romperò più le palle!

Nel mio database ho la seguente funzione:

codice:
    Function ListinoPrezzi(Forn) As Variant
           
        Forn = Val(Forn)        
    
    End Function
Il valore "Forn" è passato alla funzione utilizzando il comando "Call" da una mascherà nella quale, da una casella a discesa, si seleziona il nome di un fornitore che corrisponde ad un numero progressivo della relativa tabella. Quindi per esempio, se si seleziona il fornitore n. 7 ovviamente la variabile "Forn" memorizzerà il valore "7". Ho già verificato ed in effetti il valore viene memorizzato. Il problema si pone quando cerco di utilizzare questa variabile nel campo "Criteri" di una query di selezione. La funzione "ListinoPrezzi" viene visualizzata, ma purtroppo il valore non passa.

Dove sbaglio?