主题：关于函数调用返回结果的问题

    我写了个测试代码，希望把vba的结果传输回来， 结果输出的都是函数名称(VINIT)，请问是哪里出了问题？

pp := vinit();
drawtext(1,High,pp)

下面是vba的代码：

Function vinit(Formula)
     vinit = "Very Good"
End Function

使用全局变量来过度。

好像数字也不成。。。

怎样用全局变量实现呢？ 能否给个提示.