outlook.application problem

[Shina35]

Hi,
I still have the same problem
this is my cose:

Code:

End If
For i=1 to MyFolder4.Items.Count
If myItems(i).Subject = "anything" Then

.....

Code:

End if
'Delete message with subject not equal to "[Error]" message
If myItems(i).Subject <> "[Error]" Then
myItems(i).delete
end if
myItems.GetNext
Next

the problem is that each time i run the script i get an
error message "array is out of bound"
please help me solving this problem
thanks