Private Sub Form_Load()
    Dim Excluidos(2) As Long
    Excluidos(0) = 2
    Excluidos(1) = 4
    Excluidos(2) = 5
    Debug.Print RndExcluye(1, 7, Excluidos)
    End
 
End Sub
Private Function RndExcluye(Min As Long, Max As Long, Excluir() As Long) As Long
    Dim Num As Long
    Dim Flag As Boolean
        Randomize Timer
        Flag = True
        Do While Flag = True
            Num = CLng((Min - Max) * Rnd + Max)
            Flag = False
            For x = 0 To UBound(Excluir)
                If Excluir(x) = Num Then Flag = True
            Next
        Loop
        RndExcluye = Num
End Function
 

'Los botones se llamarán "boton"
Dim arrayConIndicesValidos() as Integer
Dim tamanoArray as Integer
 
Sub paraLlenarElArray()
   Dim i as Integer
 
   Erase arrayConIndicesValidos 'Borrar el contenido del array
   tamanoArray = 0  ' ...
   For i=0 to Boton.Count - 1 'Recorre todos los botones
        If Boton(i).Enabled Then 'Si hay un boton (activado|válido|enabled) lo mete al array de botones válidos
             If tamanoArray=0 Then 'Si el array está vacío
                  Redim arrayConIndicesValidos(0) 'Lo inicializa
             else
                  Redim Preserve arrayConIndicesValidos(tamanoArray) 'Si no lo está, lo hace un campo más grande
             End If
             arrayConIndicesValidos(tamanoArray) = i 'En el último campo creado registra el inidice del botón válido
             tamanoArray = tamanoArray + 1 '...
        End If
   Next
End Sub
 
' (...)
Call paraLlenarElArray()
botonValidoAleatorio = Int(Rand * tamanoArray)
Boton(botonValidoAleatorio).Enabled = False
' (...)