Reading a text file...

How can i search for an especific word on a text file and then begin to read the line after or the character right after the word (or tag or keyword or however you wanna called) we recently found?
Can that be one without API's?

Code:

---

Open "MyFile" For Input As #1
sFile = Input(LOF(1), 1)
Close #1

nPos = InStr(1, sFile, "<KEYWORD>")
If nPos Then
    sFile = Right(sFile, Len(sFile) - nPos)
End If

---

Code:

---

Function  strRead(channel as long,searchStr as string) as String
  Dim tmp as String, p as long
  tmp = Input(Lof(channel),channel)
  p = instr(tmp,searchStr)
  If p = 0 then
    strRead = ""
  Else
    strRead = mid(tmp,p+1)
  End If

End Function

---

:D

How would you read all the values listed in the conlum "Martes" after copying this table from a web page to a txt file and having for instance the "<TABLE>" tag as a keyword?

Any one? Here it is:
[IMG]C:\Mis Documentos\Table.gif[/IMG]

So it's a fact: NO ONE IS GOING TO HELP ME OUT:(

read the info into a txt file and attach the file and what you want out of it as a zip...