function parseHTML(tmp)
dim st,sl,link,nlnk
Dim regex
Set regex = new RegExp
regex.Pattern = "[\w\/\.\:\~\?\&]"
st = 1
do until st = len(tmp)
st = InStr(st,tmp,"http://")
if isnull(st) or st=0 then
exit do
end if
For sl = st to len(tmp)
If not regex.test(mid(tmp,sl,1)) then
exit for
End If
Next
link = mid(tmp,st,sl-st)
nlnk = "" & link & ""
tmp = Replace(tmp,link,nlnk)
st = st + len(nlnk)
loop
parsehtml = tmp
end function