Public Function test(ByVal a As Integer, ByRef b As Integer) As Integer
dim ...
...
...irgendwas
 
a = a * 20
b = b * 30
test = 12
End Function

erg = test(wert1,wert2)

---------------------------------------------------------------------------------------------------------------
Wissen ist Macht, aber nichts wissen macht nichts!