Содержимое из .txt файла в textBox - VB

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

Делаю игру "Виселица" и мне нужно реализовать,чтобы по нажатию кнопки выбиралось рандомное слово из текстового файла и textbox присваивал бы данное значение.Прошу помочь

Решение задачи: «Содержимое из .txt файла в textBox»

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

                            Private Sub Form_Load()
Dim s$(1000000)
For i = 1 To 1000000
s$(i) = Str(i) & "abvgdejdfk"
Next
Debug.Print s$(10000)
Debug.Print s$(500000)
Debug.Print s$(1000000)
End Sub
                        