strContent = re.Replace(strContent, "<i>javascript</i>:")
If Trim(ContentKeyword) <> "" Then
sContentKeyword = Split(ContentKeyword, "@@@")
For i = 0 To UBound(sContentKeyword) - 1
strKeyword = Split(sContentKeyword(i), "$$$")
re.Pattern = "(" & strKeyword(0) & ")"
strContent = re.Replace(strContent, "<a target=""_blank"" href=""" & strKeyword(1) & """ class=""wordstyle"">$1</a>")
Next
End If
re.Pattern = "([i])(.[^[]*)([/i])"
strContent = re.Replace(strContent, "<i>$2</i>")
re.Pattern = "([u])(.[^[]*)([/u])"
strContent = re.Replace(strContent, "<u>$2</u>")
re.Pattern = "([b])(.[^[]*)([/b])"
strContent = re.Replace(strContent, "<b>$2</b>")
re.Pattern = "([fly])(.*)([/fly])"
strContent = re.Replace(strContent, "<marquee>$2</marquee>")
re.Pattern = "[size=([1-9])](.[^[]*)[/size]"
strContent = re.Replace(strContent, "<font size=$1>$2</font>")
re.Pattern = "([center])(.[^[]*)([/center])"
strContent = re.Replace(strContent, "<center>$2</center>")
're.Pattern = "<IMG.[^>]*SRC(=| )(.[^>]*)>"
'strContent = re.Replace(strContent, "<IMG SRC=$2 border=""0"">")
re.Pattern = "<img(.[^>]*)>"
