Systhéme de sélection aléatoire dans une ListBox VB.net

Select Case

       Dim mesMots As List(Of String) = "Coucou;Hello;Bonjour;Ohayo Gozaimasu;Guten Tag;Hola".Split(";"c).ToList()
        ListBox1.DataSource = mesMots 'binde le contenu la liste sur le controle

        'Ajout d'un mot
        mesMots.Add("Salam Aleykoum")

        Dim rnd As New Random()

        'Tirage avec doublons autorisés
        'à mettre dans ton bouton
        textBox1.Text = mesMots(rnd.Next(mesMots.Count))


        'Tirage sans doublons
        Dim mesPossibles As List(Of String) = mesMots.ToList() 'même contenu, référence différente
        'à mettre dans ton bouton
        Dim index As Integer = rnd.Next(mesPossibles.Count)
        textBox1.Text = mesPossibles(index)
        mesPossibles.RemoveAt(index)