紧急求助【编译错误类型不匹配缺少数组或用户定义类型】

这个是调用过程
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
NextEnd Function