numeri random non ripetuti

[garzone]

Come faccio a non far ripetere i stessi numeri?
vorrei che estraesse in random i numeri da 1 a 112 senza lo 0 ovviamente ma solo una volta senza ripetizioni.

  Module Module1

    Public Mazzo(0 To 112) As Integer

    Public Sub CreaMazzo()
        Randomize()
        Dim i As Integer
        For i = 0 To UBound(Mazzo)
            Mazzo(i) = Int(Rnd() * 112)
            Form1.Label1.Text = Form1.Label1.Text & (Mazzo(i) & " ")

        Next




    End Sub

End Module

grazie