sub main()
dim res as integer

res=MISuma(1,1)
msgbox res
'imprime 2! jajaja
end sub

public function MISuma(arg1 as integer, arg2 as integer)
 dim resultado as integer

 resultado=arg1 + arg 2
 MISuma=resultado 'asignas la var resultado a la funcion, un seteo simple

end function