Public Function Htmlencode(ByVal p_sToencode As String) As String Dim oEncodedHtml As New StringBuilder() Dim oTextWriter As New StringWriter(oEncodedHtml) HttpUtility.HtmlEncode(p_sToencode, oTextWriter) Return oEncodedHtml.ToString() End Function