Может ли ктото подсказать с массивами? - VB

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

Sub TipMsg(Condition As Boolean)
 
Randomize
R = Int(Rnd * 10) + 1
If Condition Then
 
  Label5.Caption = FirstName & Choose(R, " - верно", " - так держать", ", молодчик", " - ......", ", .....", ", .....", " ......", ", ......", ", .......", ",......")
  Label5.ForeColor = vbGreen
Else
  Label5.Caption = FirstName & Choose(R, ", неверно", ", попробуй ещё раз", ", ...", ", .....", ", ....", ", .....", ", .....", ", ......", ", .......", ",......") 
  & vbCrLf & "правильный вариант ответа - " & c
  Label5.ForeColor = vbRed
End If
 
End Sub

----------------------------------------------------------------------------------- комментарии

abel5.Caption = FirstName & Choose(R, " - верно", " - так держать", ", молодчик", " - ......", ", .....", ", .....", " ......", ", ......", ", .......", ",......")

Label5.Caption = FirstName & Choose(R, ", неверно", ", попробуйте ещё раз", ", ...", ", .....", ", ....", ", .....", ", .....", ", ......", ", .......", ",......")

необходимо вытаскивать из *.txt файла,т.е. массива причём рандомно,собственно вопрос в следующем:как это осуществить?)

Решение задачи: «Может ли ктото подсказать с массивами?»

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

                            Dim myArr() As String
 
Private Sub Command1_Click()
Dim f As Integer, i As Integer
Dim s As String
f = FreeFile
i = 1
Open App.Path & "\комментарии.txt" For Input As f
    Do While Not EOF(f)
        Line Input #f, s
        ReDim Preserve myArr(1 To i)
        myArr(i) = s
    Loop
Close f
Call TipMsg(True)
End Sub
                        