Поиск слова в файле словаря - VB

Формулировка задачи:

Делаю словарь, как добавлять слова в текстовый файл разобрался, а вот как сделать, чтобы поиск слов из файла осуществлялся? Ну тоесть я ввожу слово, а мне его перевод выдает

Решение задачи: «Поиск слова в файле словаря»

textual
                            Листинг программы 
                        

                            Private Sub Text1_Change()
For i% = 0 To Combo1.ListCount
Stroka$ = Combo1.List(i)
Rez% = InStr(1, Stroka$, Text1.Text, 1)
If Rez% > 0 Then
Combo1.Text = Stroka$
Exit For
End If
Next
End Sub
Private Sub Form_Load()
Open App.Path & "\dist.txt" For Input As #1
Do Until EOF(1)
Line Input #1, words
Combo1.AddItem words
Loop
Close #1
End Sub
                        