Public Function StringReplaceForForum(ByVal s As String) As String

        s = HtmlEncode(s)

        s = quote(s, "(\[quote=.*)?(\[quote=([\w\s\:\;\)\(\?\&\#\@\.\']+?)\](.*?)\[/quote\])")

        Return s
End Function

Protected Function quote(ByVal str As String, ByVal pat As String) As String
        Dim r As Regex = New Regex(pat)
        Dim mm As Match = r.Match(str)
        While (mm.Success)
            Dim ts As String = mm.Groups( 4 ).Value
            ts = ts.Replace("[", "& # 91;")
            ts = ts.Replace("]", "& # 93;")

            str = str.Replace(mm.Groups( 2 ).Value, "<br /><table width=""90%"" cellpadding=""5"" cellspacing=""0"" class=""QUOTETable""><tr><td class=""QUOTECell"">" & mm.Groups( 3 ).Value & "</td></tr><tr><td>" & ts & "<br /></td></tr></table>")
            mm = r.Match(str)
        End While

        Return str
End Function