【编译异常 类型不匹配 缺少数组或用户定义类型】

紧急求助 【编译错误 类型不匹配 缺少数组或用户定义类型】
这个是调用过程
Dim startSymbol
ReDim startSymbol(i + 2)
For k = 0 To i + 1
If (ARRAYINDEX(s(k), startSymbol) = -1) Then
startSymbol(k) = s(k)
下面是函数
Public Function ARRAYINDEX(tempStr As String, SCS() As String) As Integer
Dim i As Integer
ARRAYINDEX = -1
For i = LBound(SCS()) To UBound(SCS())
  If SCS(i) = tempStr Then
  ARRAYINDEX = i
  End If
Next

End Function

[解决办法]
每个模块的第一行加上

VB code

Option Explicit
[解决办法]
SCS后面的()去掉