Создание массива из случайных целых чисел из определённого промежутка. Числа в массиве не должны повторяться

Dim x(100) As Integer
Dim a As Integer
Dim b As Integer
Metka1:
Randomize
For a = 0 To 99
x(a) = Int(100 * Rnd)
Next a
For b = 1 To 98
For a = b To 99
If x(b - 1) = x(a) Then GoTo Metka1
Next a
Next b
If x(98) = x(99) Then GoTo Metka1

Private Sub Комманда1_Click()
        Dim a As Integer
        Dim b As Integer
        Dim x(99) As Integer
        Dim y(99) As Integer
        
                For a = 0 To 99
                    x(a) = a
                Next a
                
                Randomize
                
                For a = 0 To 99
                    b = Int((100 - a) * Rnd)
                    y(a) = x(b)
                    x(b) = x(99 - a)
                Next a
End Sub

Private Sub Комманда1_Click()
    Dim i&, j&, a&(1 To 100)
    Randomize
    For i = 1 To 100
        j = Int(Rnd * i + 1)
        If i <> j Then a(i) = a(j)
        a(j) = i - 1
    Next i
End Sub

Option Explicit
 
Private Sub Form_Click()
Cls
Randomize
Dim Ni As Double, i As Integer
Ni = Fix(Rnd() * 100) 'Расчет первого случайного числа
For i = 0 To 99
Ni = (Ni * 74) - Fix(Ni * (74 / 101)) * 101 ' Ni целое случайное число
If i Mod 25 = 0 Then Print 'разбиваю на 4 колонки
Print Ni - 1;
Next
End Sub

Sub bb()
Dim a()
With CreateObject("excel.sheet").sheets(1).Range("A1:B100")
  .Formula = Array("=RAND()", "=ROW()")
  .Value = .Value
  .Sort .Cells(1), 1, header:=2 'xlascending,xlno
  a = .Application.transpose(.Columns(2))
  .Application.Quit
End With
End Sub