Рандом без повторов

        Dim Col As New Collection
        Dim SB As New System.Text.StringBuilder
        Label1.Text = ""
        Dim Max As Integer = InputBox("Введите верхнюю границу числового диапазона. Это должно быть целое положительное число", "Ввод данных", "10")
        For I As Integer = 1 To Max
            Col.Add(I)
        Next
        Dim R As Integer
        Do While Col.Count > 0
            R = (Int(Rnd() * Col.Count + 1))
            SB.AppendLine(Col(R))
            Col.Remove(R)
        Loop
        Label1.Text = SB.ToString

Randomize

Dim Col As New Collection 
Do While Col.Count > 0
            R = (Int(Rnd() * Col.Count + 1))
            SB.AppendLine(Col(R))
            Col.Remove(R)
        Loop

Do While Col.Count > 0 'Будем удалять пока коллекция не будет разгромлена
            R = (Int(Rnd() * Col.Count + 1)) 'Находим новый индекс по рандому, который упирается в размер коллекции (выше нам нельзя, там уже ничего нет)
' +1 - это для того, чтобы случайно не выпал ноль, ведь в коллекциях индексация начинается с единицы!
            SB.AppendLine(Col(R)) 'Записываем в СтрингБилдер (как бы строка, мы ее постепенно нагружаем, можно было просто & использовать, но у СтрингБилдера скорость в десятки раз быстрее стандартного &
            Col.Remove(R) 'Удаляем этот индекс из коллекции, чтобы он нам больше не попался
        Loop

        Dim SB As New System.Text.StringBuilder
        SB.Append(4)
        SB.Append(8)
        MsgBox(SB.ToString)