% function changechr(str) changechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13),"")," "," ") changechr=replace(changechr,"'","‘") changechr=replace(changechr,mid(" "" ",2,1),""") end function %>