VB.NET - Windows Form - Random sin repetir

Codigo:

Public Class Form1
    Dim rnd As New Random
    Dim numero As Integer
    Dim arreglo(14) As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Limpiamos el listbox
        ListBox1.Items.Clear()
        'Vamos a generar 14 numeros aleatorios
        For i = 1 To 14
            'Generamos numero aleatorio, verificamos si ya fue generado previamente
            'De ser así volvemos a generarlo nuevamente, para esto usamos la funcion booleana Existe y le pasamos
            'como parámetro de entrada el número aleatorio generado. Por lo tanto no saldrá de este ciclo mientras
            'el número se encuentre repetido dentro del arreglo que definimos para estos efectos
            Do
                numero = rnd.Next(1, 33) 'Numero aleatorio comprendido entre 1 y 32
            Loop While (Existe(numero) = True)

            'Al llegar a este punto ya tenemos la certeza que el numero no esta repetido
            'por lo tanto lo almacenamos en el arreglo y tambien lo mostramos en el listbox
            arreglo(i) = numero
            ListBox1.Items.Add(numero)
        Next
    End Sub

    Function Existe(ByVal numero As Integer) As Boolean
        'Se recorre el arreglo para verificar si el numero generado existe o no
        For i = 0 To arreglo.Length - 1
            If numero = arreglo(i) Then
                Return True 'El numero existe
            End If
        Next
        Return False 'Retornará falso si no encuentra el numero dentro del arreglo
    End Function

End Class

_________________________________

==>DESCARGAR<==