[Iska]

данные в файле идут в одну строку... »

Тогда ещё проще:

Код:

With WScript.CreateObject("Scripting.FileSystemObject").OpenTextFile("file.txt")
	WScript.Echo Split(.ReadLine(), ";")(4)
	.Close
End With