Запись в файл результатов прохождения теста - VB

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

Доброго времени суток! Нашел прекрасный вариант создания тестов. Не могу только разобраться в следующем. Необходимо чтобы по мере прохождения теста в текстовый файл записывались следующие данные: Формулировка вопроса, ответ, который был выбран тестируемым и правильный ответ. Т.е. в итоге в файл должно записываться примерно так: Вопрос: Сколько будет 2+2? Выбранный ответ: 5 Правильный ответ: 4 Заранее признателен за помощь.

Решение задачи: «Запись в файл результатов прохождения теста»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub cmdNext_Click()
    Dim I As Long, V As Long
    V = -1
    For I = 0 To optCase.UBound
        If optCase(I).Value Then V = I: Exit For
    Next
    If V = -1 Then MsgBox "Г‚Г»ГЎГҐГ°ГЁГІГҐ ГўГ*Г°ГЁГ*Г*ГІ Г®ГІГўГҐГІГ*", vbExclamation, "ГЋГёГЁГЎГЄГ*": Exit Sub
    If Test.Questions(CurIndex).Cases(V).Status Then User.Count = User.Count + 1
    '///
    For I = 0 To UBound(Test.Questions(CurIndex).Cases)
        If Test.Questions(CurIndex).Cases(I).Status Then
            MsgBox "ГЏГ°Г*ГўГЁГ«ГјГ*Г»Г© Г®ГІГўГҐГІ: " & Test.Questions(CurIndex).Cases(I).Name
            Exit For
        End If
    Next
    '\\\
    CurIndex = CurIndex + 1
    CurQuestion = CurQuestion + 1
    If CurQuestion = CountQuestions Then EndTest: Exit Sub
    UpdateQuestion
End Sub