valor para variable MensajeErrorCFDI

App_Code/Timbrado.vb

@@ -9,7 +9,7 @@ Imports System.Data
 Public Class Timbrado
 
 #Region "P R O P I E D A D E S"
-    Public Property MensajeErrorCFDI As String
+    Public Property MensajeErrorCFDI As String = ""
     Public Property UUID As String = ""
     Public Property CancelacionAcuse As String
     Public Property CancelacionState As Integer
@@ -640,6 +640,7 @@ Public Class Timbrado
             Case 2
                 'Retorno = TimbrarFacturaRealVirtual(UsuarioActual, Ventas, TmpDTConceptos, TmpDTImpuestos, TmpDTComplementos, Ruta, LstFordASN, FordGSDBM, ObjV)
                 Dim Ret As String = TimbrarFacturaRealVirtualv33(Ventas, UsuarioActual)
+                If Ret <> "" Then MensajeErrorCFDI = Ret
                 Retorno = If(Ret = "", True, False)
 
             Case 3
@@ -648,6 +649,7 @@ Public Class Timbrado
             Case 4
 
                 Dim Ret As String = TimbrarFacturaGoCFDIv33(Ventas, UsuarioActual, CvePACEspecial)
+                If Ret <> "" Then MensajeErrorCFDI = Ret
                 Retorno = If(Ret = "", True, False)
 
         End Select