script выдает ошибку

dim objTextFile
dim objFSO 


Set objFSO = CreateObject("Scripting.FileSystemObject")
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = 0
IE.navigate "http://datasuite.cmegroup.com/dataSuite.html?template=opt&productCode=6E&exchange=XCME&selected_tab=fx"
Do While IE.Busy
   WScript.Sleep 500 
   'Exit Do                 
loop
 
do while asc(left(IE.document.all.Item("1.2900").cells.Item(1).innerText,1))=149
	WScript.Sleep 500 
loop


do while true
Set objTextFile = objFSO.OpenTextFile (Left(WScript.ScriptFullName,len(WScript.ScriptFullName)-4) + "ta.txt", 2, True)  

	for i=1050 to 1495 step 5
		s = replace(cstr(i/1000),",",".")
		if len(s)<6 then
			s = s + space(6-len(s))
			s = replace(s," ","0")
		end if
		if not IE.document.all.Item(s) is nothing then
			stCALLS_Volume = Trim(IE.document.all.Item(s).cells.Item(0).innerText)
			stCALLS_PS = Trim(IE.document.all.Item(s).cells.Item(3).innerText)
			stPUTS_Volume = Trim(IE.document.all.Item(s).cells.Item(18).innerText)
			stPUTS_PS = Trim(IE.document.all.Item(s).cells.Item(15).innerText)
			objTextFile.WriteLine s + ";" + stCALLS_Volume + ";" + stCALLS_PS + ";" + stPUTS_Volume + ";" + stPUTS_PS 
		end if
	next

	objTextFile.Close
	WScript.Sleep 30000
loop
 IE.quit
Set IE = Nothing