Hur ersätta html och använda img taggar

Jag hittade denna gjord an Josef här på forumet, men jag förstår den inte riktigt, vad den gör. Jag vill ha en funktion som gör att man kan länka till en bild i texten med img taggar och ta bort "farlig" html samt att vanliga VbCrLf ska fungera. Någon som kan förklara för en trög kock?

Function FCode(str)

str = Replace(str,"<","&lt;")
str = Replace(str,VbCrLf,"<br />")

Set objRE = New regexp
objRE.Global = true
objRE.IgnoreCase = true

objRE.Pattern = "\[(b|/b|i|/i|u|/u)\]"
str = objRE.Replace(str,"<$1>")

objRE.Pattern = "([url]www.[/url][^ ]*[a-z])|([url]http://[/url][^ ]*[a-z])"
str = objRE.Replace(str,"<b>Länk: </b><a href=""$1$2"" target=""_blank"">$1$2</a>")

str = Replace(str,"""www","""http://www")
str = Replace(str,"""http://www""","""www""")

str = Replace(str,"<br""","""")
str = Replace(str,"<br</a> />","</a><br />")

str = Replace(str,"</span><hr""","""")
str = Replace(str,"</span><hr</a> />","</a></span><hr />")

str = Replace(str,"<blockquote><span""","""")
str = Replace(str,"<blockquote><span</a>","</a><span")
str = Replace(str,"</b</a>>","</b>")

objRE.Pattern = "([\w~\-\.]+@[\w~\-\.]+[a-z])"
str = objRE.Replace(str,"<b>Epost: </b><a href=""mailto:$1"">$1</a>")

objRE.pattern = "\[img]((.|\n)+?)\[/img\]"
str = objRE.Replace( str, "<img src='$1'>" )
Set objRE = Nothing

Fcode = str
End Function