Probleminhas com o meu projeto de gerador de nomes ( >;=;)>

Question

Olá pessoal. Hoje consegui acabar as  minhas listas em txt do meu gerador de nomes, só que quando eu resolvi colocar a mão na massa surgiram algumas dúvidas:

1. Eu sou completamente novato, não sei como usa string com o meu arquivo txt e como fazer para o programa reconhecer e funcionar.

Achei um código bem interessante aki no MSDN mesmo mais na versão inglês:

Public Class Form1

Private Sub btnGetName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetName.Click

Dim intUpperNumber As Integer = 6

Dim r As New Random

Dim intRandomnumber

intRandomnumber = r.Next(intUpperNumber)

Select Case intRandomnumber

Case 0

TextBox1.Text = "Tom"

Case 1

TextBox1.Text = "Fred"

Case 2

TextBox1.Text = "Ted"

Case 3

TextBox1.Text = "Daniel"

Case 4

TextBox1.Text = "Alex"

Case 5

TextBox1.Text = "Rob"

End Select

End Sub

End Class

  Ai no caso, como que eu utilizo os arquivos de txt que eu fiz, para não ficar chamando Case e deixar o código mais limpo.

Tentei sozinho mais sem sucesso colocar para funcionar o FirstName.txt como string e tentar chamar na TextBox1 . 

Alguém poderia me dar uma exemplo ou algo assim para me ajudar? é que tem mais de 10300 nomes em cada linha a serem gerados. Iria levar um século =/ se eu fosse nesse método de Case 1,2,3 e assim por diante.

Agradeço desde já quem puder dar umas dicas ou uns exemplos .

Att Igor Akiyama 

Answer 1

Descobri meu erro quanto as strings (>.<)" er... eu não estava colocando o caminho do arquivo. Por isso não dava certo dãã...rsrs

 consegui achar um exemplo bem legal  em um fórum ...mais  não  sei como que eu faço para a mensagem ser exibida na TextBox1 e não por uma janelinha POP-UP =/ . mais graças a Deus resolvi o negocio das listas.

Quanto ao Problema do  Código  lá é que mesmo se eu tirar a parte do MessageBox.Show ... 

A coisa não mostra o resultado  na parte do TextBox1 =/   (aparece em branco)  

Alguém ajuda?( >;=;)> Plz (num sei como resolver)

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click, TextBox1.TextChanged
        Dim randomnum As New Random()
        Dim RandomNumber As Integer
        Dim lines = IO.File.ReadAllLines("C:\Users\Akiyama\Desktop\Listas Completas\FirstName.txt")
        RandomNumber = randomnum.Next(0, UBound(lines))

        MessageBox.Show(lines(RandomNumber))

    End Sub
End Class