Update QGFLXVUM.rexx

Corrected SUBSTR logic.