Ответ появляется в InputBox - VB

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

При нажатии кнопки "Начать тест" появляются InputBox с разными вопросами.Ответил на один вопрос (ну или не ответил) и появляется следующий InputBox с другим вопросом.Всего вопросов 5. На основной форме находится,кроме кнопки,еще и текстовая строка(Text). Нужно,чтобы после того,как пользователь ответил на все вопросы,в этом текстовом поле Text появлялась информация о количестве верных ответов. Спасибо!

Решение задачи: «Ответ появляется в InputBox»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim x1, x2, x3, x4, x5 As Integer 'ГЁГ«ГЁ Г±ГІГ°Г®ГЄГ®ГўГ»Г© ГІГЁГЇ ГЄГ*ГЄГ®Г©
Dim k As Integer: k = 0
 
x1 = InputBox("Г‚ ГЄГ*ГЄГ®Г¬ ГЈГ®Г¤Гі Гћ.ГЂ.ГѓГ*ГЈГ*Г°ГЁГ* ГЇГ®Г«ГҐГІГҐГ« Гў ГЄГ®Г±Г¬Г®Г±?")
If x1 = 1961 Then
k = k + 1
End If
...
x5 = InputBox("Г‚ГІГ®Г°Г*Гї ГЊГЁГ°Г®ГўГ*Гї ГўГ®Г©Г*Г* Г§Г*ГўГҐГ°ГёГЁГ«Г*Г±Гј Гў...")
If x5 = 1945 Then
k = k + 1
End If
 
Text1.Text = "ГЉГ®Г«ГЁГ·ГҐГ±ГІГўГ® ГЇГ°Г*ГўГЁГ«ГјГ*Г»Гµ Г®ГІГўГҐГІГ®Гў: " + Str(k)
End Sub