excel中VB自定义函数？

Question

excel中VB自定义函数？founction 求一个值（range,n）
i = 0
s = 1
while i＜＝9
s = s-(countif(range,"*i*")/n)^2
i = i+1
wend
print s
end founction

以上是我写的代码，里面的countif是想使用excel自带的计数函数。但是保存调用后显示无效外部过程。
第一次自己试着写VB代码，不知道哪里不对。
是因为自定义函数代码中不能调用excel自带函数吗？还是有其他的问题？
请问该怎么修改呢？谢谢大家了！

Answer 1

function AB( a as long ,optional B as long=1) as long AB=A*B end function