Sub MySub (ByVal x As Integer)
Sub MySub (ByRef x As Integer)
Dim Integer x,z x=10 z=MyFunc(x) Print x x=10 z=MyFunc((x)) Print x Function MyFunc (a As Integer) a=a/2 End Function