' 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