Hi:
If valor is a datasource you will need to pass this datasource using ByRef,
if it is a value you must pass it by value.

For example we will use the field name test as string in datasource Valor

example by ref:
VerificarValor(Valor)
Private Function VerificarValor(ByRef datValor as variant)
x = datValor.Recordset("test")
end function

example by value:

VerificarValor(Valor.Recordset("test"))
Private Function VerificarValor(ByVal strValor as string)
x = strValor
end function

I hope that this will help you.

Good Luck