Dim NameKey As Integer
        NameKey = Int(Rnd() * 10)
        Select Case NameKey

            Case 0

                TextBox1.Text = "Will"

            Case 1

                TextBox1.Text = "Bernardo"

            Case 2

                TextBox1.Text = "Manoel"

Etc...

Dim LastNameKey As Integer
        LastNameKey = Int(Rnd() * 10)
        Select Case LastNameKey

            Case 0

                TextBox2.Text = "Monteiro"

            Case 1

                TextBox2.Text = "Ferraz"

            Case 2

                  TextBox2.Text = "Lins"

Etc...