VB6 - run-time error 9 Subscript Out of rage, Ошибка)

[CTAPu4OK]

Жалуется на пред-предпоследнюю строчку
Public Function AddObjectWork(Reference As String, Optional Index As Integer = 0) As Integer
Dim Count As Integer

AddObjectWork = Index
If ObjectWorkMax < Index Then
ObjectWorkMax = Index
ReDim Preserve ObjectWork(ObjectWorkMax) As ObjectsWork
ElseIf Index = 0 Then
For AddObjectWork = 1 To ObjectWorkMax
If ObjectWork(AddObjectWork).Reference = 0 Then Exit For
If AddObjectWork = ObjectWorkMax Then
AddObjectWork = AddObjectWork + 1
ObjectWorkMax = AddObjectWork
ReDim Preserve ObjectWork(ObjectWorkMax) As ObjectsWork
Exit For
End If
Next
End If
ObjectWork(AddObjectWork).Reference = GetObjectScriptIndex(Reference)
If ObjectScript(ObjectWork(AddObjectWork).Reference). Amountable Then ObjectWork(AddObjectWork).Amount = 1
End Function

Как исправить ?

http://i045.radikal.ru/0907/71/3bc85360300ct.jpg (http://radikal.ru/F/i045.radikal.ru/0907/71/3bc85360300c.jpg.html)

Строчка на которую жалуется
If ObjectScript(ObjectWork(AddObjectWork).Reference). Amountable Then ObjectWork(AddObjectWork).Amount = 1