I am using code developed by others as an example. In have made no changes
to it so I presume it should work. Here it is:

Dim aszTextArray As Variant
Dim CurSlot As ICAPLib.Slot
Dim nNum As Long

Set CurSlot = Component.ResultAttributes

If Not CurSlot Is Nothing Then
aszTextArray = CurSlot.ValueAsArray
nNum = UBound(aszTextArray) < I get the error here . At this
point, aszTextArray is Empty and CurSlot =""


What is this error trying to tell me? Any ideas if the If statement is
wrong?

Thanks in advance for your help.

Ray