[H@NON]

если нужно чтобы из рандома совпал ряд чисел, то делай через Select :

result = false
While result = false
      number = Rand(1,128)
      Select number
           case 16,32,48,64,80,96,112,128
           result = true
      End select
Wend