en kortere måde at liste mine betingelser i en if sætning

lav en liste med alle emnerne:
"1" og "fer" osv.

brug Choose(listen,nr):

for nr = 1 til 100
  Choose(listen,nr)
next

http://www.eksperten.dk/list/aabnespoergsmaal/andersschou

Du i din if kalde en function der returnere en sandhedsværdi. Funktionen kan implementere testene med en Select Case:

if (Test(arb)) then

end if
...

Function Test(arb)
  Select Case arb
    Case "1", "fer", "afs" 'Her fyldes på med strings som arb må være lig
      Test = True
  End Select
End Function