关于自定义函数的 有关问题

关于自定义函数的 问题
我现在定义了   一个   函数mai
如下:
  Function   MAI(byref   input()   as   integer)   as   single
 

    end   Function

然后调用

r=MAI(a(4))   'a数组已经定义好

如下:
dim   a(4)   as   integer

但是当我运行时,提示我类型不匹配或没有函数,为什么啊?

------解决方案--------------------
变量 input 改下名称试试
------解决方案--------------------
r = MAI(a(4))这个个也不对
r = MAI(a)
------解决方案--------------------
r = MAI(a)