Построчное считывание из txt файла

For i = 1 To 30
i = FreeFile
Open App.Path & "\int.txt" For Input As #i
Line Input #i, MyText
Label1.Caption = MyText & vbCrLf
Next i
Close #i

Option Explicit
Const countQ As Integer = 30 'Количество вопросов
Dim Q(1 To countQ) As String
Dim NumRndQ(1 To countQ) As Long
Dim NumQ As Integer,i as integer
 
Private Sub Command1_Click()
    Dim ff As Integer, s As String
    ff = FreeFile: NumQ = 0
    Open App.Path & "\int.txt" For Input As #ff
        'do while not eof(ff)
        For i = 1 To countQ   'Количество строк в файле должно быть не менее количество вопросов, иначе будет ошибка
            Line Input #ff, s 'считываем построчно вопросы
            Q(i) = s
        Next i
        'loop
    Close #ff
    For i = 1 To countQ
         NumRndQ(i) = i
    Next i
    Call Unsort(NumRndQ)
End Sub
 
Private Sub Command2_Click()
    If NumQ >= countQ Then MsgBox "": Exit Sub
    NumQ = NumQ + 1
    Label1.Caption = Q(NumQ) 'Выводим вопросы на Label
End Sub
 
Public Sub Unsort(List() As Long)
Dim i As Long, min As Long, max As Long
Dim pos As Long, tmp As Long
min = LBound(List): max = UBound(List)
    For i = min To max - 1
        pos = Int((max - i + 1) * Rnd + i)
        tmp = List(pos)
        List(pos) = List(i)
        List(i) = tmp
    Next i
End Sub

Dim k%, k1%, dr$, Text_v$, MyText$
Dim mv, mv0() As Boolean, tr As Boolean
Private Sub Command1_Click()
If Not (tr) Then
  k = 0:  dr = "int.txt"
  k1 = 0
  If Dir(App.Path & "\" & dr) <> "" Then
     F = FreeFile
     Text_v = "": tr = True
     Open App.Path & "\" & dr For Input As #F
        Do Until EOF(F)
           Line Input #F, MyText
           Text_v = Text_v & MyText & ","
           k = k + 1
        Loop
     Close #F
     mv = Split(Text_v, ",")
     ReDim mv0(k)
  Else
   MsgBox "Not found " & App.Path & "\" & dr
   Exit Sub
  End If
Else
  If k1 = k Then
     MsgBox "All" 'Result
     tr = False
     Label1 = ""
     Exit Sub
  End If
End If
 
Do
  m = Int(Rnd * k) + 1
Loop Until mv0(m) = False
mv0(m) = True
k1 = k1 + 1
Label1 = "#" & "(" & k1 & ")" & m & ":  " & mv(m - 1)
End Sub

Label1.Caption = Q(NumRndQ(NumQ)) 'Выводим вопросы на Label

Dim k%, k1%, dr$, Text_v$, MyText$
Dim mv, mv0() As Boolean, tr As Boolean
Private Sub Command1_Click()
If Not (tr) Then
  k = 0:  dr = "int.txt"
  k1 = 0
  If Dir(App.Path & "\" & dr) <> "" Then
     F = FreeFile
     Text_v = "": tr = True
     Open App.Path & "\" & dr For Input As #F
        Do Until EOF(F)
           Line Input #F, MyText
           Text_v = Text_v & MyText & "**"
           k = k + 1
        Loop
     Close #F
     mv = Split(Text_v, "**")
     ReDim mv0(k)
  Else
   MsgBox "Not found " & App.Path & "\" & dr
   Exit Sub
  End If
Else
  If k1 = k Then
     MsgBox "All" 'Result
     tr = False
     Label1 = ""
     Exit Sub
  End If
End If
Randomize (Timer)
Do
  m = Int(Rnd * k) + 1
Loop Until mv0(m) = False
mv0(m) = True
k1 = k1 + 1
Label1 = "#" & "(" & k1 & ")" & m & ":  " & mv(m - 1)
End Sub

Option Explicit
Const countQ As Integer = 30 'Количество вопросов
Dim Q(1 To countQ) As String
Dim NumRndQ(1 To countQ) As Long
Dim NumQ As Integer,i as integer
 
Private Sub Command1_Click()
    Dim ff As Integer, s As String
    ff = FreeFile: NumQ = 0
    Open App.Path & "\int.txt" For Input As #ff
        'do while not eof(ff)
        For i = 1 To countQ   'Количество строк в файле должно быть не менее количество вопросов, иначе будет ошибка
            Line Input #ff, s 'считываем построчно вопросы
            Q(i) = s
        Next i
        'loop
    Close #ff
    For i = 1 To countQ
         NumRndQ(i) = i
    Next i
    Call Unsort(NumRndQ)
End Sub
 
Private Sub Command2_Click()
    If NumQ >= countQ Then MsgBox "": Exit Sub
    NumQ = NumQ + 1
    Label1.Caption = Q(NumQ) 'Выводим вопросы на Label
End Sub
 
Public Sub Unsort(List() As Long)
Dim i As Long, min As Long, max As Long
Dim pos As Long, tmp As Long
min = LBound(List): max = UBound(List)
    For i = min To max - 1
        pos = Int((max - i + 1) * Rnd + i)
        tmp = List(pos)
        List(pos) = List(i)
        List(i) = tmp
    Next i
If Label1.Caption = "2+2=?" And Combo1.Text = "4" Then MsgBox "true", vbOKOnly, "true" Else MsgBox "false", vbOKOnly, "false"
If Label1.Caption = "4+4=?" And Combo1.Text = "8" Then MsgBox "true", vbOKOnly, "true" Else MsgBox "false", vbOKOnly, "false"
'...ну и так 30 вопросов
End Sub

Option Explicit
Const countQ As Integer = 30 'Количество вопросов
Dim Q(1 To countQ) As String
Dim Ans(1 To countQ) As String
Dim NumRndQ(1 To countQ) As Long
Dim NumQ As Integer, i As Integer
 
Private Sub Form_Load()
    Dim ff As Integer, s As String
    ff = FreeFile: NumQ = 0
    Randomize
    Open App.Path & "\int.txt" For Input As #ff
        'do while not eof(ff)
        For i = 1 To countQ   'Количество строк в файле должно быть не менее количество вопросов, иначе будет ошибка
            Line Input #ff, s 'считываем построчно вопросы
            Q(i) = Split(s, "?")(0)
            Ans(i) = Split(s, "?")(1)
        Next i
        'loop
    Close #ff
    For i = 1 To countQ
         NumRndQ(i) = i
    Next i
    Call Unsort(NumRndQ)
    Call NextQuestion
End Sub
 
Private Sub Command2_Click()
    Call NextQuestion
End Sub
 
Public Sub NextQuestion()
    If NumQ >= countQ Then MsgBox "Больше вопросов нет!": Exit Sub
    NumQ = NumQ + 1
    Label1.Caption = "Вопрос № " & NumQ & "   " & Q(NumRndQ(NumQ)) 'Выводим вопросы на Label
    Dim i As Integer, n As Integer, A() As Long
    n = UBound(Split(Ans(NumQ), ","))
    ReDim A(0 To n)
    For i = 0 To n
         A(i) = Split(Ans(NumQ), ",")(i)
    Next i
    Call Unsort(A)
    For i = 0 To n
         Label2(i).Caption = A(i) 'Выводим варианты ответов на Label2
    Next i
End Sub
 
Public Sub Unsort(List() As Long)
Dim i As Long, min As Long, max As Long
Dim pos As Long, tmp As Long
min = LBound(List): max = UBound(List)
    For i = min To max - 1
        pos = Int((max - i + 1) * Rnd + i)
        tmp = List(pos)
        List(pos) = List(i)
        List(i) = tmp
    Next i
End Sub
 
Private Sub Label2_Click(Index As Integer)
    If CStr(Label2(Index).Caption) = CStr(Split(Ans(NumQ), ",")(0)) Then
         MsgBox "Правильно"
    Else
         MsgBox "Неправильно"
    End If
End Sub