VB作业，求高手做下。。

　　编写一个自定义函数f，计算并返回下列表达式的值。
a1 +a2 +…+an
 帮忙做下 VB作业，求高手做下。。 --------------------编程问答-------------------- function f(a() as long)as long
dim i as long
for i=0 to ubound(a)
f=f+a(i)
next
end function

补充：VB ,  VBA