Тестирование в VB, подкиньте пару идей или просто оцените

Dim f As integer 'Byte
 
 
Private Sub Form_Load()
txtResultat.multiline = true 'ответ на первый вопрос
txtResultat.Text = ""
f = FreeFile '!!!
Open App.Path & "\" & (frmMain.cboGruppa.Text) & "\" & (frmMain.txtImya.Text) & " " & (frmMain.txtFamiliya.Text) & ".txt" For Binary As f '1???
Str = Space(LOF(f)) 'а не 1
Get #f, , Str '1???
'txtResultat.Text = txtResultat.Text & Str 'зачем, если txtResultat.Text = ""
txtResultat.Text = Str
Close f '1???
End Sub

    For i = 0 To 3
      controls("pctotvet" & (i+1)).Visible = True 'сделай так
      'pctotvet1.Visible = True 'или из цикла
      'pctotvet2.Visible = True 'хотя бы вынеси
      'pctotvet3.Visible = True 'а то 4 раза
      'pctotvet4.Visible = True 'одно и тоже повторил
      Opt(i).Caption = Votvet24(i)
    Next i

Option Explicit
Dim UserOtvet As Variant
Dim PravOtvet As Variant
 
Dim Votvet As Variant
 
Dim Voprosi As Variant
Public N As Byte
Public VV As single 'Currency зачем?
Dim i As byte 'Variant ?
 
Private Sub cmdNext_Click()
lblvopros.Visible = True
If N < 24 Then
    lblvopros.Caption = "Питання №:" & N + 1 '2"
    For i = 0 To 3
      Opt(i).Caption = Votvet(N)(i) 'Votvet1(i)
    Next i
    txtVoprosi.Text = Voprosi(N) '1 vopros
    Opt(0).Value = True
    On Error Resume Next
    Controls("pct" & N & "vopros").Visible = False
    Controls("pct" & N + 1 & "vopros").Visible = True
    On Error GoTo 0
    If N = 23 Then
      pctotvet1.Visible = True
      pctotvet2.Visible = True
      pctotvet3.Visible = True
      pctotvet4.Visible = True
      cmdNext.Caption = "закінчити тестування"
    End If
    If UserOtvet(N) = PravOtvet(N) Then VV = VV + 0.5
Else
  
  Print #1, "Час і дата закінчення тесту "; Date; Time; "кількість балів"; VV;
  Close #1
  frmFinish.Visible = True
  frmFinish.Show
  frmTest.Hide
End If
N = N + 1
End Sub
 
Private Sub cmdPoehali_Click()
N = 0
VV = 0
    cmdPoehali.Visible = False
    Opt(0).Visible = True
    Opt(1).Visible = True
    Opt(2).Visible = True
    Opt(3).Visible = True
    cmdNext.Visible = True
    frmOtveti.Visible = True
    txtVoprosi.Visible = True
    Opt(0).Value = True
    cmdNext.Enabled = True
UserOtvet = Array(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) 'Otveti usera
PravOtvet = Array(0, 2, 2, 0, 1, 0, 1, 0, 1, 1, 3, 0, 1, 0, 1, 3, 0, 2, 1, 2, 3, 1, 1, 2) 'Pravilnie Otveti
Voprosi = Array("Предикатом Р(х1,...,хn) називають:", "Як позначають предикати:", "На що вказує верхній індекс у предикаті якщо його використовують:", _
"pct4:", "pct5:", "pct6:", "Предметні змінні атомарних формул у численні предикатів є:", _
"pct8:", "Слово в алфавіті логіки предикатів називають:", "Предикати можуть набувати значення:", _
"Яке з наведених правил не є правилом рівносильних перетворень логіки предикатів:", _
"Формули логіки предикатів, в яких із логічних символів є тільки символи &, v, i, Ї,причому символ Ї трапляється лише перед символами предикатів, називають:", _
"pct13:", "pct14:", "pct15:", "pct16:", "pct17:", "pct18:", "pct19:", "pct20:", "pct21:", "pct22:", "Предикат від n аргументів називають:", _
"Що з наведеного є логічними символами логіки предикатів:")
'Voprosi ^^
Votvet = Array( _
Array("n-місну функцію, визначену на деякій множені М, з областю значень {0(хибність),1(істина)};", "відображення: M'' -> M, де М - деяка множина;", "функція{0,1}^n -> (0,1);", "булева функція від n-булевих змінних"), _
Array("арабськими цифрами", "римськими цифрами", "літерами латиньского алфавіту", "будь якими літерами?"), _
Array("на значення предикату", "на тип предикату", "на число аргументів", "у предикатах взагалі індексів немає?"), _
Array("на значення предикату", "на тип предикату", "на число аргументів", "у предикатах взагалі індексів немає?"), _
Array("квантором загальності", "квантором спільності", "квантором рівності", "квантором сталості"), _
Array("квантором поєднання", "квантором існування", "квантором спільності", "квантором рівності"), _
Array("символи предметних змінних", "символи предикатів", "число аргументів", "символи кванторів"), _
Array("зв'язаними", "вільними", "булевими", "істинними"), _
Array("символи предикатів", "символи кванторів", "символи предметних змінних", "логічні символи"), _
Array("висловленням", "предикатом", "аргументом", "словом предикатів"), _
Array("нуля, одиниці, двійки", "істиности або хибності", "тільки одиниці", "інше"), _
Array("Перенесення квантора через заперечення", "винесення квантора за дужки", "перейменування зв'язаних змінних", "усі наведені варіанти є правилами"), _
Array("зведеними формами", "неповними формулами", "зв'язаними формулами", "незведеними формулами"), _
Array("перенесенням квантора через заперечення", "винесенням квантора за дужки", "переставленням однойменних кванторів", "перейменуванням зв'язаних змінних?"), _
Array("перенесенням квантора через заперечення", "винесенням квантора за дужки", "переставленням однойменних кванторів", "перейменуванням зв'язаних змінних?"), _
Array("перенесенням квантора через заперечення", "винесенням квантора за дужки", "переставленням однойменних кванторів", "перейменуванням зв'язаних змінних?"), _
Array("перенесенням квантора через заперечення", "винесенням квантора за дужки", "переставленням однойменних кванторів", "перейменуванням зв'язаних змінних?"), _
Array("перенесенням квантора через заперечення", "винесенням квантора за дужки", "переставленням однойменних кванторів", "перейменуванням зв'язаних змінних?"), _
Array("перенесенням квантора через заперечення", "винесенням квантора за дужки", "переставленням однойменних кванторів", "перейменуванням зв'язаних змінних?"), _
Array("перенесенням квантора через заперечення", "винесенням квантора за дужки", "переставленням однойменних кванторів", "перейменуванням зв'язаних змінних?"), _
Array("перенесенням квантора через заперечення", "винесенням квантора за дужки", "переставленням однойменних кванторів", "перейменуванням зв'язаних змінних?"), _
Array("перенесенням квантора через заперечення", "винесенням квантора за дужки", "переставленням однойменних кванторів", "перейменуванням зв'язаних змінних?"), _
Array("перенесенням квантора через заперечення", "винесенням квантора за дужки", "переставленням однойменних кванторів", "перейменуванням зв'язаних змінних?"), _
Array("n-ним предикатом", "n-місним предикатом", "n-звичайним", "інше"), Array("pct1o", "pct2o", "pct3o", "pct4o"))
 
cmdNext_Click
 
End Sub
 
 
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("Упевнені?", vbYesNo, "вихід") = vbYes Then '"Yvereni?" "Vihod"
  End
Else
  Cancel = 1
End If
End Sub
 
Private Sub Opt_Click(Index As Integer)
UserOtvet(N) = Index
End Sub

Option Explicit
Public VV As single 'Currency зачем?

Dim i As byte 'Variant ?