' Encode Public Function Encode(ByVal tcValue As String) As String Dim lcValue As String = "" lcValue = Trim(tcValue) lcValue = System.Web.HttpUtility.HtmlEncode(lcValue) Return lcValue End Function