vb 在定义函数时报错 求教

我在网上抄的一个函数，是这样写的：
Public Function number1ToCharacter(number As String) As String
但是我运行的时候为什么会报错？请高手帮忙分析下，谢谢。
显示如下：