Read data out of a File using WSH

Reading data out of a text file using Windows Scripting Host

Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fs, f, ts, s, filename
filename= "c:\SOMEFILE.TXT"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filename)
Set ts = f.OpenAsTextStream(ForReading, Tristatefalse)
s = ts.skipline
s = ts.skipline
s = ts.skipline
s = ts.skipline
s = ts.ReadLine
s = mid(s,12)
msgbox s
ts.Close