searching for a line in a text file

[jshaulis06]

ok, heres my problem. im trying to make a program that searches a text file with a key word created by the user and prints it in a list box. sorta like a dictionay program in vb.net

heres what i got so far

 
dim sr as system.io.streamreader=file.opentext.fromfile("file.txt")
dim def, word as string 
def=listbox.text
word=textbox.text
 
do while sr.peek<>-1
word=sr.readline()
listbox.items.add(word)
 
 

this code already fills the listbox with the whole file but i only want the box filled with the definition of the word i placed in the textbox.

[websupport]

Please note that instr returns 0 if the work is there on first spot or not found

if instr(word,def) >0 xor String.Compare(word, def, False, 0, def.length) =0 then
listbox.items.add(word)
end if

ok, heres my problem. im trying to make a program that searches a text file with a key word created by the user and prints it in a list box. sorta like a dictionay program in vb.net

heres what i got so far

 
dim sr as system.io.streamreader=file.opentext.fromfile("file.txt")
dim def, word as string 
def=listbox.text
word=textbox.text
 
do while sr.peek<>-1
word=sr.readline()
listbox.items.add(word)
 
 

this code already fills the listbox with the whole file but i only want the box filled with the definition of the word i placed in the textbox.