here's is what i want to do

i have a data in a text file in a array, i want to read the out the english words compared with the french and display the french in a text box
words are arrange like this in the tect file
yes,oui,
the,le

the found = line is where the error seem to be occuring

Dim English, French, As String
Dim i, where As Integer
Dim Fword(), Eword(), As String
Dim found As Boolean

English = TxtEnglish.Text
Fword = English.Split(" "c)

For i = 0 To 30
Do While ((Not found) And (where < rm.Length))
found = (Eword(i)) = rm(where, 0)
where = where + 1
Loop
where = where - 1
Fword(i) = rm(where, 1)

Next

TxtFrench.Text = Join(Fword, " ")