Seek method in File System object

How can i use seek method in FSO(File System Object)

Following is my code:

Const ForReading = 1
Dim AppStr As String
Dim i As Integer
Dim Pos As Integer
Dim Pos1 As Integer
Dim PosSev As Integer
Dim PosTicket As Integer
Dim Ticket As String
Dim Severity As String
Dim PagerNumber As String
Dim myText As String
'Dim s As Timer

Form1.Text3.Text = ""



Dim strNextLine As String
Dim PagerNo As String

' start of comments
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set robjFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(Form1.Text1.Text, ForReading)
Set robjTextFile = objFSO.OpenTextFile(Form1.Text2.Text, ForReading)







Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
'arrServiceList = Split(strNextLine, ",")
'Wscript.Echo "Server name: " & arrServiceList(0)
'For i = 1 To UBound(arrServiceList)
' Wscript.Echo "Service: " & arrServiceList(i)
'Next
'MsgBox strNextLine
Set robjTextFile = objFSO.OpenTextFile _
(Form1.Text2.Text, ForReading)



Do Until robjTextFile.AtEndOfStream
' myText = ""
PagerNo = robjTextFile.Readline
'MsgBox PagerNo
Pos = InStr(1, strNextLine, "PIN")
If Pos <> 0 Then
PagerNumber = Mid(strNextLine, Pos + 4, 6)
Pos1 = InStr(Pos, strNextLine, PagerNo)
If Pos1 <> 0 Then
PosTicket = InStr(Pos1, strNextLine, "EESM")
If PosTicket <> 0 Then
Ticket = Mid(strNextLine, PosTicket + 5, 8)
PosSev = InStr(1, strNextLine, "SEV")
If PosSev <> 0 Then
Severity = Mid(strNextLine, PosSev + 3, 1)
Form1.Label1.Caption = strNextLine
myText = " Pager Number:" + PagerNumber + " Ticket:" +
Ticket + " Severity:" + Severity
'MsgBox Ticket
'MsgBox PagerNumber
'MsgBox Severity
Form1.Text3.Text = Form1.Text3.Text + myText

End If
End If
'MsgBox strNextLine

Exit Do
End If

End If



Loop







Loop


Regards,
Mugil

.

Loading