Разработать приложение для автоматизации составления тестов

Otvet(w) = 10
Exit Do' добавить строчку

Dim Otvet(10) As Integer

S = " "
For n = 1 To 10
If n > 0 And n < 10 Then
If Mid(text, 1, 1) = n And Form3.Label1(n).Caption = "" And Mid(text, 1, 5) <> "*****" Then
F = text + S
Form3.Label1(n).Caption = F
End If
Else
If n = 10 Then
If Mid(text, 1, 2) = n And Form3.Label1(n).Caption = "" And Mid(text, 1, 5) <> "*****" Then
F = text + S
Form3.Label1(n).Caption = F
End If
End If
End If
Next

Private Sub GetDataFromFile()
    Dim s, ss, ff As Integer, i As Integer, j As Integer
    ff = FreeFile
    Open App.Path & "\1.txt" For Input As #ff 'открыть файл 1 только для чтения
        s = Input(LOF(ff), ff)
    Close #ff
    s = Split(s, "+++++")
    CountQuest = UBound(s)
    ReDim DataAQ(1 To CountQuest, 1 To CountAns + 2)
    ReDim Verno(1 To CountQuest): ReDim Ans(1 To CountQuest)
    For i = 1 To CountQuest
        ss = Split(s(i), vbCrLf)
        For j = 1 To CountAns + 2
            DataAQ(i, j) = ss(j)
            'MsgBox DataAQ(i, j)
        Next j
    Next i
    Label1.Caption = Split(DataAQ(w, 1), ")")(1)
    Label3.Caption = " Вопрос № " & Split(DataAQ(w, 1), ")")(0) & " (" & CountQuest & ")"
    Me.Caption = "Тестирование. " & Label3.Caption
    For i = 1 To CountAns
       Option1(i).Value = False
       Option1(i).Caption = DataAQ(w, i + 1)
    Next i
    Command1.Enabled = False
End Sub