SubString_Ribbon

function SubString_Ribbon(

  const Str: string;

  const Separator: char;

  const Current: Word;

  const MoveBy: Integer

):Integer; overload;

function SubString_Ribbon(

  const Str: string;

  const Separator: char;

  const Current: string;

  const MoveBy: Integer

):string; overload;