VB函数返回值怎么写？

下面给的有点问题，就是，函数的作用于，如果说在同一个函数里面，那么我觉得是没有问题的，因为变量的值没有被清楚或者被释放。如果 真的要得到一个函数的返回值，我觉得是这样的吧，
Private Sub a() as double

your code (…sum=…)
set a = sum
end sub

比如函数如下：

function a() as integer
a = 1
end function

那只要：x=a()，就能让 X 得到 a 函数的返回值 1

VB的函数中没有像C中的return这样的返回值的语句,VB中的函数返回值就是直接对函数名赋值.

函数名= 值
如
function A as integer
A = 1
end function

Function fun(a As Integer) As Integer
fun = 1
End Function
谢谢！