sub broj_1=10 broj_2=20 suma(broj_1,broj_2) end sub function zbroj(ByRef broj_1, ByVal broj_2) zbroj=broj_1 + broj_2 broj_1=zbroj+broj_2 end function