vb 在定义函数时报错 求教

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

把 As String 删掉，在number1之前加 ByVal 试试。
你复制的是VB代码，可是是使用VBScript运行的。VBScript不支持传参数的时候指定类型。

使用VBScript运行的。VBScript不支持传参数的时候指定类型。

VBScript不支持传参数的指定类型

VB代码，使用VBScript运行不支持传参数的时候指定类型。