You should add multiply CHR to ASC
$!+( $+ $left($regsubex($1-,/(.)/g,$ $+ chr( $+ $asc(\1) $+ ) $+ $chr(44)),-1) $+ )
use that.