nem sprg vedr function

Jeg skal kalde en funktion som skal returenere 3 værdier tilbage til mig......

Private sub Default
Dim y as integer,x as integer,z as integer
x= 0
y= 0
z= 0 
beregn(x,y,z)
msgbox x
msgbox y
msgbox z
end sub

Public function Beregn(x as integer,y as integer,z as integer)

x=6
y=76
z=23
end function


er det her megt forkert måde at lave det på ?
vil mgbox y,x,z ikke retunere de værdier der bliver indtastet i beregn funktionen ?