Visual Basic - duda sobre function

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)
...
x=111
.....
calculo=x
end function

Creo que tu problema es como le pasas el parametro a la funcion, investiga el tema de ByVal y ByRef . Valores por Valor o por referencia

Private Sub Command1_Click()
Dim z As Currency
z = 222
r = calculo(z)
'...
End Sub
Private Function calculo(ByVal x As Currency)
'...
x = 111
'.....
calculo = x
End Function

Si Christian es como tu dices, enviando la variable como ByVal solo envio el contenido de la variable. Gracias