Не получается завершить тест и просчитать результат - VB

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

Очень нужна помощь, с VB встречаюсь второй раз в жизни, для зачёта надо создать тест (Кеттелла_детский вариант) домучила тест до состояния переключения вопросов и ответов, не получается завершить тест(он мне дальше пустые вопросы выдает) и высчитать результаты. Спасите пожалуйста, в четверг сдавать надо

Решение задачи: «Не получается завершить тест и просчитать результат»

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

                            Option Explicit
Dim NomVopros As Variant
Dim V As Variant
Dim Vopros As String
Dim Otvet1 As String
Dim Otvet2 As String
Dim Ball1 As Long
Dim Ball2 As Long
Dim F As Long
Dim SumAns As Long
Private Sub Loading()
Option1.Value = True
Vopros = ""
Otvet1 = ""
Otvet2 = ""
Ball1 = 0
Ball2 = 0
If Dir(App.Path & "\" & NomVopros & ".txt") <> "" Then
F = FreeFile
Open App.Path & "\" & NomVopros & ".txt" For Input As #F
Input #F, Vopros
Input #F, Otvet1, Otvet2
Input #F, Ball1, Ball2
Close #F
Else
End If
Option1.Caption = Otvet1
Option2.Caption = Otvet2
Text1.Text = Vopros
Label1.Caption = "Вопрос № " & NomVopros
 
End Sub
 
Private Sub Command1_Click()
 
If Option1.Value = True Then SumAns = SumAns + Ball1
If Option2.Value = True Then SumAns = SumAns + Ball2
NomVopros = NomVopros + 1
 
If Val(NomVopros) = V + 1 Then
MsgBox "Тестирование закончилось. Результаты: " & vbCrLf _
& "Отвечено на " & V & "  вопрос(ов) " & vbCrLf _
& "Набрано  " & SumAns & "   баллов", 64, "Отчёт"
Exit Sub
End If
Loading
End Sub
 
Private Sub Form_Load()
Form2.Caption = "Тестирование"
SumAns = 0
V = -1
NomVopros = 1
If Val(NomVopros) = 1 Then V = Val(InputBox("На сколько впросов отвечать будем?", "Вопрос на засыпку", 30))
Loading
End Sub
  
Private Sub Text1_DblClick()
Form1.Show
End Sub
                        