Wie kriegt man das kürzer hin ? (VBA)

If ActiveCell.FormulaR1C1 <> "" then

If ActiveCell.FormulaR1C1 = "RPS" then
das und das
end if

If ActiveCell.FormulaR1C1 = "BC" then
dies und das
end if

...
das geht jetz mit 23 (!!!) anderen Werten sie weiter !!!
...
end if 'der Abfrage ob <> ""

Und jetzt will ich haben

If ActiveCell.FormulaR1C1 = "nicht eine dieser 25 Werte" then
FALSCH !!!!

Aber ich will (verständlicherweise) nicht schreiben

If ActiveCell.FormulaR1C1 <> "RPS" or ActiveCell.FormulaR1C1 <> "FR" or ActiveCell.FormulaR1C1 = "23 Andere Variablen" then

Dann schreibt man ja bis zum Horizont ;)

Geht das irgendwie kürzer ?
Bestimmt oder ?
Nur wie :)
Danke