duda con function vb6

[g_cury]

Ante todo gracias al que se interese en mi duda.
El tema es asi:
tengo una funcion a la que le envio una variable x como parametro declarada como currency con un valor, la cosa que segun ciertos criterios dentro de esa funcion el valor de esa variable la cambio pero la cambio dentro de la funcion, ahora cuando vuelvo de la funcion la variable que le habia pasado a la funcion me cambio el valor por el modificado en la funcion. (las variables son de ambito local, no son ni publicas ni globales)
como es esto??
paso el codigo

espero haber sido claro

dim z as currency
z=222
r = calculo(z)
...

private function calculo(x as currency)
...
b=111
...
x=b
.....

calculo=x
end function

[erbuson]

Hola, el problema es que dentro de la funcion estás modificando el Valor de la variable que le envias, existen dos posibilidades, la primera de ellas es que utilices una variable distinta y la otra que definas así la funcion:

Código vb:

Private Function Calculo(ByVal x As Currency) As Currency
End Function
 

De este modo pasas el VALOR de la variable o sea, es como si pasases una copia de la misma y no modificas su valor al salir de ella.

Saludos

[g_cury]

Gracias erbuson es como tu dices, tengo que pasar la variable como ByVal

[JonathanB]

Saludos, como mencionó erbuson tienes que cambiar la declaración de la función a ByVal, ya que visual basic 6 tiene por default la asignación por referencia o sea ByRef.
Cuando asignas un valor por referencia le estas indicando que en vez de crear una nueva variable, que tome la que estas enviando como parametro.