Help meh vb08

[omg_lol]

Ive been trying to make a phisher the past few days, but come to a problem when i have to generate letters +numbers together, ive finally given up on that and thought up a new idea. Using Scam Tools Suite created by Apoc ive made a bunch of notepad documments with about 200 of each type of code (GC, UDE Code, CD code, and blizz autheticators) Now i would like to find out how to make my vb program use a randomly selected code from the notepad document when the user clicks a certain button, please help

[Cephalopod]

More info and less ridiculous colours.

Format of text file? Copy + Paste a sample.

Obtain number of lines in file -> Produce a random number with a max of the number of lines -> Read that line.

[omg_lol]

More info and less ridiculous colours.

Format of text file? Copy + Paste a sample.

Obtain number of lines in file -> Produce a random number with a max of the number of lines -> Read that line.

Atleast my posts are fun unlike your boring grayness6):

[Cephalopod]

People answer my questions.

No one answered yours.

Deduce what you wish.

[ReidE96]

But he does like an awesome show (and you answered him )

Assuming one on each line, read a random line from the file.

[Cephalopod]

Yes, but if he refrained using stupid colors I'd give a code example and find a well written tutorial, or I'd explain the code myself.
:P

[Apoc]

Don't use a text file. Use code.

Imports System
Imports System.Text

Namespace ScamToolsSuiteLib
    Friend Class KeyGenerator
        Private Shared ReadOnly Charset As Char() = "abcdefghijklmnopqrstuvwxyz0123456789".ToCharArray()
        Private Shared ReadOnly random As New Random()
        
        ''' <summary>
        ''' Gets a randomly generated time card code. Example: 3420-666698-16081-009008-6060
        ''' </summary>
        ''' <value>The get time card.</value>
        ''' 10/27/2008 9:15 AM
        Public Shared ReadOnly Property GetTimeCard() As String
            Get
                Dim sb As New StringBuilder()
                For j As Integer = 1 To 29
                    Dim [next] As Integer = random.[Next](10)
                    If j = 5 OrElse j = 12 OrElse j = 18 OrElse j = 25 Then
                        sb.Append("-")
                        Continue For
                    End If
                    sb.Append([next].ToString())
                Next
                Return sb.ToString()
            End Get
        End Property
        
        ''' <summary>
        ''' Gets a randomy generated Trading Card Game code
        ''' </summary>
        ''' <value>The get TCG card.</value>
        ''' 10/27/2008 9:15 AM
        Public Shared ReadOnly Property GetTCGCard() As String
            Get
                Dim sb As New StringBuilder()
                For i As Integer = 0 To 28
                    If i = 4 OrElse i = 12 OrElse i = 18 OrElse i = 24 Then
                        sb.Append("-")
                        Continue For
                    End If
                    sb.Append(Charset(random.[Next](Charset.Length)))
                Next
                Return sb.ToString().ToUpper()
            End Get
        End Property
        
        ''' <summary>
        ''' Gets a randomly generated CD key. Example: RMXI7O-83DY-ZU6INW-8FMB-72XSG4
        ''' </summary>
        ''' <value>The get CD key.</value>
        ''' 10/27/2008 9:15 AM
        Public Shared ReadOnly Property GetCDKey() As String
            Get
                Dim sb As New StringBuilder()
                For i As Integer = 1 To 30
                    If i = 7 OrElse i = 12 OrElse i = 19 OrElse i = 24 Then
                        sb.Append("-"c)
                        Continue For
                    End If
                    sb.Append(Charset(random.[Next](Charset.Length)))
                Next
                Return sb.ToString().ToUpper()
            End Get
        End Property
        
        ''' <summary>
        ''' Gets a randomly generated Blizzard authenticator code. (Length ranges from 6-8 digits only.)
        ''' </summary>
        ''' <value>The get authenticator.</value>
        ''' 10/27/2008 9:15 AM
        Public Shared ReadOnly Property GetAuthenticator() As String
            Get
                Dim rand As Integer = random.[Next](6, 9)
                Dim sb As New StringBuilder()
                For i As Integer = 0 To rand - 1
                    sb.Append(random.[Next](10))
                Next
                Return sb.ToString()
            End Get
        End Property
    End Class
End Namespace

Not sure if it'll compile properly. But that's the code to do it. (Just did a quick conversion from C# to VB.NET)