There are a number of ways to compare a bunch of variables to a single value or evaluate an expression against them. For example if you wanted to check whether any of your variables a through z equal 10.
When you are evaluating each of them against a different constant value, however, you need the expression for each one.
You should note that your code will unnecessarily evaluate all of the expressions, when in theory it could stop checking once any of the conditions are met. For that, use OrElse instead of Or. That will, of course, make the code even longer.
One way to pare down the syntax slightly (for long condition sets):
Dim all = new Boolean(){ _
a = 1, _
b = 2, _
c = 3, _
d = 4, _
e = 5, _
}.All(Function(x As Boolean) x)
This again, however, results in evaluation of all conditions.