Чтение из текстового файла строк или слов в произвольном порядке - VB

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

Доброго Времени суток! Продолжаю писать проект. Есть такое задание: Пользователю из текстового файла(txt.txt) выдается слово в Label Пользователь должен ввести его перевод в TextBox и нажать btnNext Слова должны выдаваться рендомно. Помогите с реализацией

Решение задачи: «Чтение из текстового файла строк или слов в произвольном порядке»

textual
                            Листинг программы 
                        
 
                            
                        
Dim Q() As String 'ГЎГ*Г§Г* ГўГ®ГЇГ°Г®Г±Г®Гў
Dim R() As String 'ГЎГ*Г§Г* Г®ГІГўГҐГІГ®Гў
Dim CQ As Integer 'ГЄ-ГўГ® ГўГ®ГЇГ°Г®Г±Г®Гў Гў ГЎГ*Г§ГҐ
Dim CR As Integer 'ГЄ-ГўГ® ГўГ»Г¤Г*Г*Г*Г»Гµ Г®ГІГўГҐГІГ®Гў
Dim b_Q() As Boolean 'ГЇГ°Г®Г§ГўГіГ·Г*ГўГёГЁГҐ ГўГ®ГЇГ°Г®Г±Г»
Dim b_R() As Boolean 'ГўГ»Г¤Г*Г*Г*Г»ГҐ ГўГ*Г°ГЁГ*Г*ГІГ» Г®ГІГўГҐГІГ®Гў
Dim nQ As Integer 'ГЎГ*Г§Г®ГўГ»Г© Г*Г®Г¬ГҐГ° ГўГ®ГЇГ°Г®Г±Г*
Dim CV As Integer 'ГЄ-ГўГ® ГЇГ°Г*ГўГЁГ«ГјГ*Г»Гµ Г®ГІГўГҐГІГ®Гў
Public mark As Byte ' Г®Г¶ГҐГ*ГЄГ*
Public kolvo As Byte ' ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® ГўГ®ГЇГ°Г®Г±Г®Гў
Public family As String ' ГґГ*Г¬ГЁГ«ГЁГї ГіГ·ГҐГ*ГЁГЄГ*
 
Private Sub btnNext_Click()
kolvo = 2
If CR > 0 Then
  If txtAnswer.Text = "" Then
    MsgBox "Г‚ГўГҐГ¤ГЁГІГҐ Г®ГІГўГҐГІ!"
    Exit Sub
  Else
    CV = CV - (R(0, nQ) = lblQ.Caption)
  End If
End If
CR = CR + 1
If CR > kolvo Then 'ГЇГ°Г®Г©Г¤ГҐГ*
MarkRate
  If MsgBox("ГЏГ°Г®ГўГҐГ°Г®Г·Г*Г*Гї Г°Г*ГЎГ®ГІГ* Г*Г*ГЇГЁГ±Г*Г*Г*." & vbLf & "Г‚Г*Гё Г°ГҐГ§ГіГ«ГјГІГ*ГІ: " & CV & " ГЇГ°Г*ГўГЁГ«ГјГ*Г»Гµ Г®ГІГўГҐГІГ®Гў ГЁГ§ " & kolvo & vbLf & "Г‚Г*ГёГ* Г®Г¶ГҐГ*ГЄГ* " & mark) Then
    MarkRate
    frmMain.Text1.Text = frmMain.Text1.Text & "Г“Г·ГҐГ*ГЁГЄ " & family & " Гў Г°ГҐГ§ГіГ«ГјГІГ*ГІГҐ ГЇГ°Г®ГўГҐГ°Г®Г·Г*Г®Г© Г°Г*ГЎГ®ГІГ» ГЇГ®Г«ГіГ·ГЁГ« Г®Г¶ГҐГ*ГЄГі " & mark
    frmMain.Text1.Text = frmMain.Text1.Text & vbCrLf
    Unload frmControl
    frmMain.Show
  End If
Else
    Randomize
  Do
    nQ = Int(Rnd * CQ) + 1
  Loop While b_Q(nQ)
  b_Q(nQ) = True
  lblQ = Q(nQ)
  ReDim b_R(0 To 2)
    Do
      nR = Int(Rnd * 3)
    Loop While b_R(nR)
    b_R(nR) = True
    txtAnswer.Text = ""
End If
End Sub
 
Private Sub Form_Load()
family = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГўГ*ГёГі ГґГ*Г¬ГЁГ«ГЁГѕ", "Г‚ГўГ®Г¤")
frmControl.Caption = "Г’ГҐГ±ГІ ГЇГ°Г®ГµГ®Г¤ГЁГІ ГіГ·ГҐГ*ГЁГЄ " & family
If CQ = 0 Then ' ГҐГ±Г«ГЁ ГЄ-ГўГ® ГўГ®ГЇГ°Г®Г±Г®Гў Гў ГЎГ*Г§ГҐ Г°Г*ГўГ*Г® 0
  ReDim Q(0), R(0, 0)
  Dim S As String
  Open App.Path + "\ControlWork\ControlWork1.RJT" For Input As 1
  While Not EOF(1)
    Line Input #1, S
    S = Trim(S)
    If Val(S) > 0 Then
      CQ = CQ + 1
      ReDim Preserve Q(CQ), R(0, CQ)
      Q(CQ) = Mid(S, InStr(1, S, " ") + 1)
      CR = 0
    ElseIf S > "" Then
      R(CR, CQ) = Mid(S, InStr(1, S, " ") + 1)
      CR = CR + 1
    End If
  Wend
  Close 1
End If
ReDim b_Q(CQ)
CR = 0
CV = 0
btnNext_Click
End Sub
 
 
Public Sub MarkRate()
a = CV / kolvo
Select Case a
Case 0.5 To 0.7
mark = 3
Case 0.7 To 0.9
mark = 4
Case 0.9 To 1
mark = 5
Case Else
mark = 2
End Select
End Sub