Quote

Dim NotFound (100), Found (100)
Dim NotFoundIndex, FoundIndex
NotFoundIndex = 0
FoundIndex = 0

' .... down the road
If found = 1 Then
'WScript.Echo "[" & data.title & "] has been found"
Found(FoundIndex) = data.title
FoundIndex = FoundIndex + 1
Else
'WScript.Echo " ! [" & data.title & "] has NOT been found"
NotFound(NotFoundIndex) = data.title
NotFoundIndex = NotFoundIndex + 1
End If