RANDOMIZE REPETINDO ESCOLHA DEMAIS

Private Const QTHRESH As Long = 7

Private Declare Sub CopyMemory Lib [Ô]kernel32[Ô] Alias [Ô]RtlMoveMemory[Ô] (Destination As Any, Source As Any, ByVal Length As Long)

Public Sub CopyArray(vSource() As Variant, vDestiny() As Variant)
   Dim i As Integer
   Dim lb As Long, ub As Long
   
   [ô]Determina os limites da matriz
   lb = LBound(vSource)
   ub = UBound(vSource)
   
   [ô]Redimensiona a matriz de destino
   ReDim vDestiny(lb To ub)
   
   [ô]Inicia a cópia
   For i = lb To ub
      vDestiny(i) = vSource(i)
   Next
End Sub

Public Function IsEmptyArray(vArray As Variant) As Boolean
   On Local Error Resume Next
   Dim memVal As Long
   
   CopyMemory memVal, ByVal VarPtr(vArray) + 8, ByVal 4  [ô]get pointer to array
   CopyMemory memVal, ByVal memVal, ByVal 4              [ô]see if it points to an address...
   IsEmptyArray = (memVal = 0)                           [ô]...if it does, array is intialized
End Function

Public Function InArray(vMatrix() As Variant, ByVal nNumber As String) As Boolean
   On Error Resume Next
   Dim i As Integer, lCount As Long
   
   lCount = UBound(Filter(vMatrix, nNumber, True, vbBinaryCompare))
   InArray = (lCount > -1)
End Function

Public Sub ShiftArray(vMatrix() As Variant, Optional ByVal RemoveIndex As Integer = 1)
   Dim i As Integer
   Dim lb As Long, ub As Long
   
   [ô]Se o índice a ser removido está fora do intervalo da matriz, sai da rotina
   If RemoveIndex < LBound(vMatrix) Then Exit Sub
   If RemoveIndex > UBound(vMatrix) Then Exit Sub
   
   lb = LBound(vMatrix)
   ub = UBound(vMatrix)
   
   For i = RemoveIndex To ub - 1
      vMatrix(i) = vMatrix(i + 1)
   Next
   
   If lb <= (ub - 1) Then
      ReDim Preserve vMatrix(lb To ub - 1)
   Else
      ReDim vMatriz(0)
   End If
End Sub

Public Sub ShuffleArray(vMatrix() As Variant, ByVal Seed As Long)
   Dim lb As Long, ub As Long
   Dim nIdx As Integer, pIdx As Integer
   Dim p As Integer
   Dim vTmp1() As Variant, vTmp2() As Variant
   
   [ô]Copia a matriz para uma matriz temporária
   CopyArray vMatrix, vTmp1
   
   [ô]Determina o limite da matriz
   lb = LBound(vMatrix)
   ub = UBound(vMatrix)
   
   [ô]Cria a matriz secundária
   ReDim vTmp2(lb To ub)
   
   Randomize Seed    [ô]Inicia a sequencia aleatória
   nIdx = ub         [ô]Atribui o limite da matriz
   pIdx = 1          [ô]Inicia o índice da matriz aleatória
   
   Do
      [ô]Seleciona um número aleatório qualquer
      p = Int(Rnd(Seed) * nIdx) + 1
      
      vTmp2(pIdx) = vTmp1(p)  [ô]Atribui o número selecionado da matriz
      ShiftArray vTmp1, p     [ô]Remove o índice da matriz
      
      pIdx = pIdx + 1         [ô]Incrementa o índice
      nIdx = nIdx - 1         [ô]Diminui o limite de sorteio
   Loop While nIdx > 0
   
   [ô]Copia a nova matriz
   CopyArray vTmp2, vMatrix
End Sub

Private Function GerarListaPropaganda(ByVal Qtde As Integer) As Variant()
   Dim i As Integer
   Dim rndKey As Long
   Dim lista() As Variant
   
   [ô]Inicializa a matriz
   ReDim lista(1 To Qtde)
   
   [ô]Preenche a lista temporária com a
   [ô]sequência numérica indicada pela variável Qtde
   For i = 1 To Qtde
      lista(i) = i
   Next
   
   [ô]Cria a semente para as funções randômicas
   [ô]Aqui pode ser qualquer valor
   [ô]Como exemplo usar o valor da função Timer() multiplicado por 9
   rndKey = CLng(Timer()) * 9
   
   [ô]Gera os índices aleatórios
   ShuffleArray lista, rndKey
   
   [ô]Retorna a lista com a sequência aleatória
   GerarListaPropaganda = lista
End Function

Private Sub Command1_Click()
   Dim ret1 As String, ret2 As String
   ret1 = Join(GerarListaPropaganda(52), [Ô], [Ô])
   ret2 = Join(GerarListaPropaganda(52), [Ô], [Ô])
   MsgBox ret1 & vbCr & vbCr & ret2
End Sub

Public indexUsado As Integer
Public matrizNum() As Variant

Private Sub Form_OnLoad()
   matrizNum = GerarListaPropaganda(52)
   indexUsado = 0

   [ô]Restante da lógica do sistema
End Sub

Private Sub commandSorteio_Click()
   [ô]Aqui você verifica se o número máximo foi atingido, no seu caso 52 ou outra quantidade necessária
   [ô]Gera uma nova matriz aleatória
   If indexUsado >= 52 Then
      matrizNum = GerarListaPropaganda(52)
      indexUsado = 0
   End If
   
   indexUsado = indexUsado + 1
   MostrarPropaganda indexUsado    [ô]Aqui é usa lógica para exibir a propaganda
End Sub