Erreur de code ou pas ?

Bonjour,

Je me présente André je suis novice en programmation , je contact tout les connaisseurs en VB.net car j'ai un souci avec mon générateur de clé

j'ai fait une combobox
un bouton générer
et une texte box

le problème c'est quand je demander de générer les clefs le résultat ne s'affiche pas dans ma texte box

Voici le code ou est le problème ?
y a-t-il un code a mettre dans la texte box ?

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ComboBox1.Text = "Adobe Dreamweaver" Then
            Dim Key As Integer
            Key = (Rnd() = 8)
            Select Case Key
                Case 1
                    TextBox1.Text = "114558dfdfdf444415"
                Case 2
                    TextBox1.Text = "515654fffffd566188"
                Case 3
                    TextBox1.Text = "481213dfdfdfdfdf31321"
                Case 4
                    TextBox1.Text = "747dfdfdfdfdfd5465465465"
                Case 5
                    TextBox1.Text = "724fdfdfdfzdfezfezf546465454"
                Case 6
                    TextBox1.Text = "4274848ljljjlhlltlltyj944898"
                Case 7
                    TextBox1.Text = "7555l798785767864qdzqdqdzqd8464"
                Case 8
                    TextBox1.Text = "7575rthr4564654mo65i74654qdqdqd6546"
            End Select
        End If
    End Sub
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End

    End Sub
End Class