写成方法或函数很简单，但现目前的问题是，你的代码本身就有错误的，
pencat = replace(pencat,""",abc)这段代码有误
 
function pencat(str)
str=replace(str,"<","<")
str = replace(str,">",">")
pencat=replace(str,"'",chr(34))
end function 

调用代码如下
txt=pencat("字符串")