Работа с файлами - VB (58723)

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

Доброго времени суток! Не могу реализовать вывод следующего вопроса, после нажатия кнопки "далее". Помогите пожалуйста решить эту проблему. На форуме находил такую же задачу, но что то не могу разобраться в коде.

Решение задачи: «Работа с файлами»

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

                            Option Explicit
Dim file$, ff&, s$
Private Sub Form_Activate()
    ChDir App.Path 'Устанавливаеться папка (папка с программой и файлом TEST)
    file = "TEST.txt"
    file = InputBox("Этот файл надо открыть ?", , file)
    If file = "" Then End
    ff = FreeFile
    Open file For Input As ff
    While Not EOF(ff) 'Файл будет считываться до конца страницы
        Line Input #ff, s
        If InStr(1, s, "ответ", 1) > 0 Then MsgBox s
        Print s
        
    Wend
    Close ff
End Sub
                        