[VBA] tester une variable / à plusieurs valeurs

sans savoir si les valeurs se suivent :

Avec SQL, au lieu de faire :

select * from table1 where (champ1= '1' and ... champ1 = '9')
on peut écrire
select * from table1 where (champ1 IN ('1','2','3',...'9')

et en VBA ?

au lieu de faire
if (VAR1 = '1' and VAR1 = '2' .. and VAR1='7') then ...

comment simplifier ?