Public Function ObtenerCaracteresPermitidos(ByVal descripcionTexto As String) As String
        'Valida Caracteres para el texto del aviso y codigo identificador
        Dim strError As String = ""
        Dim resultado As String = ""
        Dim caracteresPermitidos As String = objDatos.ObtenerCaracteresPermitidos()
        Dim rgx As New Regex(caracteresPermitidos, RegexOptions.IgnoreCase)
        Dim matches As MatchCollection = rgx.Matches(descripcionTexto)

        Dim largoTexto As Int32 = descripcionTexto.ToString().Length
        Dim largoCoincidencias As Int32 = rgx.Matches(descripcionTexto).Count
        Dim cantidadInvalido As String = (largoTexto - largoCoincidencias).ToString()
        '   resultado = rgx.Replace(descripcionTexto, "*")
        resultado = rgx.Replace(resultado, " ")
        If largoTexto <> largoCoincidencias Then
            strError = "Total de caracteres no permitidos : " + cantidadInvalido + " Carateres: " + resultado
        End If
        Return strError
    End Function