-- corrección

App_Code/ClsPaginas.vb

@@ -11150,11 +11150,11 @@ Public Class ClsPaginas
         End If
         Contenido.AppendFormat("<br/> {0}<br/>", TextoFinal)
 
-        Contenido.AppendFormat("<br/>CorreoDestino: {0}<br/>", CorreoDestino)
+        'Contenido.AppendFormat("<br/>CorreoDestino: {0}<br/>", CorreoDestino)
         Contenido.Append("  </body>")
         Contenido.Append("</html>")
 
-        CorreoDestino = "rene.molina@adssistemas.mx"
+        'CorreoDestino = "rene.molina@adssistemas.mx"
 
         If ObjMail.SendMail(tEmpresa, CorreoDestino, Asunto, Contenido.ToString) Then
 

App_Code/modExtensiones.vb

@@ -3699,7 +3699,7 @@ Namespace Extensiones
             Return New DateTime(Fecha.Year, Fecha.Month, 1)
         End Function
         <Runtime.CompilerServices.Extension()>
-        Public Function ListaBusquedaValor(TextoArreglo As String, ValorBuscado As String, Optional Delimitador As Char = ";"c) As String
+        Public Function ListaBusquedaValor(TextoArreglo As String, ValorBuscado As String, Optional Delimitador As Char = "|"c) As String
             Dim Retorno As String = ""
             ' Separar por ";" para obtener cada par clave:valor
             Dim pairs() As String = TextoArreglo.Trim.Split(Delimitador)