Ok, try this:dim rm(30,3) as string
Dim English, French, As String
Dim i, where As Integer
Dim Fword(30), Eword() As String
Dim found As Boolean
English = TxtEnglish.Text
Eword = 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," ")