Ввод данных за пределами файла, в чем причина?

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

Ввод данных за пределами файла