Function FormatStr(str)
    Dim s1,s2
    If str<>"" then
    str=replace(replace(Trim(str),chr(32)&chr(32),""),chr(9),"")
    DO While (instr(str,">")>0 and instr(str,"<")>0)
    s1=InStr(str,"<")
    s2=Instr(s1,str,">")
    If s1>0 and s2>0 then
    str=replace(str,mid(str,s1,s2-s1+1),"")
    End if
    Loop
    str=replace(replace(str,"<","<"),">",">")
    str=Replace(Replace(Replace(replace(replace(str,chr(13),""),chr(10),""),"""","”"),"'","’")," ","")
    FormatStr=str
    Else
    FormatStr=""
    End if
    End Function