Parse Var first first '-' last
        If last > '' Then
          range = range Sproc(first) Sproc(last)
/* -------------------------------------------------------- */
Sproc:
Return '/'Right(Word(Arg(1),1),3,'0')