Odd how it completely disregarded the backslash.
Replace: $+($!+,$chr(40),$left($regsubex($v1,/(.)/g,$+(,$asc(1),$chr(44))),-1),$chr(41)) With: $+($!+,$chr(40),$left($regsubex($v1,/(.)/g,$+(,$asc(\1),$chr(44))),-1),$chr(41))