Naja, weniger Code ist das auch nicht.
Aber im Free-Format kann man auch noch abkürzen:

If %Scan('*': %XLate(Ungueltig: Ersetzen: Text) ) > *Zeros;
:
endif;