[VB6] Search Wordzs TextFile [VB6]

hi,
How can i In FSO Get All W0rds Named : Junaid ? And Then Get The Whole Line ?

Code:

---

Wie = Mid(ToSay, InStr(ToSay, " ") + 1)
kortju = Mid(Wie, InStr(Wie, " ") + 1)
lol = FSO.OpenTextFile(App.Path & "\chatlogs\" & kortjuh & ".log", ForReading).ReadLine(Wie) << This Line???
Send Index, "BK" & locale("Chatlog Van Lol : <br>") & " " & lol & Chr(1)

---

So This Line :::

Code:

---

lol = FSO.OpenTextFile(App.Path & "\chatlogs\" & kortjuh & ".log", ForReading).ReadLine(Wie) << This Line???

---

Wie = Junaid :P
Thnqs,
-Junaid