Subscript out of range: 'ArrayIndex'

Jeg får denne fejl : Subscript out of range: 'ArrayIndex'. og det undre mig for scriptet har virket længe men kommer nu med denne fejl.
Tabel:
Id  Parentarticel
7    -1
8    11
9    509
10  11
11  -1
12  569

Kode:
ParentArticle2 = 0
If "" & ID = "" Then ID = 1
If "" & ParentArticle = "" Or ParentArticle = "-1" Then
    ParentArticle = 1
    ParentArticle2 = 1
end if

Dim aryParentIDs, aryParentTitles, aryParentURLs

Function PushItemFromStart( thisArray, element )
    If Not isArray( thisArray ) Then
        Redim thisArray(0)
    Else
        ReDim Preserve thisArray(UBound(thisArray)+1)
    End If
    For Index = UBound(thisArray)-1 To 0 Step -1
        thisArray(Index+1) = thisArray(Index)
    Next
    thisArray(0) = element
End Function

Function findParentArticles( thisID )

    ' Identify ID in array
    ArrayIndex = -1
    For Index = 0 To UBound( aryArticleID ) - 1
      If CInt(aryArticleID( Index )) = CInt(thisID) Then
        ArrayIndex = Index
    Exit For
      End If
    Next

PushItemFromStart aryParentIDs, thisID
*fejlen*PushItemFromStart aryParentTitles, aryArticleTitle(ArrayIndex)
PushItemFromStart aryParentURLs, aryRedirectURL(ArrayIndex)

If "" & aryParentArticle(ArrayIndex) <> "-1" Then                findParentArticles aryParentArticle(ArrayIndex)

End Function

Har kigget og er ved at gå meget kold i den her, så jeg håber der er en der kan hjælpe :o)