Data entry outside the file, what is the reason?

Question

VBScript

Dim fso, MyFile, str, newStr, num, i
i = 0
Set fso = CreateObject("Scripting.FileSystemObject") 
Set MyFile=fso.OpenTextFile("data.txt", 1, True) 
Do While MyFile.AtEndOfStream<>True 
str = MyFile.ReadLine
If (Len(str) <> 0) Then
'str = split(MyFile.ReadLine, ":")
newStr = split(str, "/rus/")
num = UBound(newStr)
i = i + 1
Msgbox newStr(num)

End If

Loop

Swears on line 9:
newStr = split(str, "/rus/")

Data entry outside the file

The line is NOT empty, I broke my whole head.
What could be the reason?

Answer 1

This is a variable change error by another process. You may not have closed the FileSystemObject stream.