Secondo me, nel caso in cui i numeri seguono una logica precisa metti una formula, altrimenti crea un array di integer contenente i numeri, e invece di fare l'if chilometrico, controlli solo se x sta nell'array

Dim Lista() As Integer = {9, 17, 33, 49}
ReDim Preserve Lista(3)
Dim x As Integer
For x = 0 To 50
If Lista.IndexOf(Lista, x) <> -1 Then
'Fai quello che devi fare
End If
Next