Function RemoveHTMLTag(str) Set re = New RegExp re.Pattern = "<[^<>]*>" re.Global = true RemoveHTMLTag =re.Replace(str,"") Set re = Nothing End Function %>