Regexp är inte lämpligt för den typen av byten, det är mycket enklare och effektivare med replace och mid.
function repl(string,pos,char)
if len(string) >= pos then
set r = new regexp
r.pattern = "^(.{" & pos-1 & "," & pos-1 & "})" & "(.)" & "(.*)$"
repl = r.replace(string,"$1" & char & "$3")
else
repl = string
end if
end function