diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 503feacc6..58043f9fb 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -1945,7 +1945,7 @@ Partial Class Bancos_IE
         ObjOtrosPagos.Add(New CFDINominaOtrosPagos With {.TipoOtroPago = "003",
                                                     .Clave = "003",
                                                     .Concepto = "Viáticos (entregados al trabajador).",
-                                                    .Importe = TxtImporte.Text.ToString.ToDouble
+                                                    .Importe = TxtImporte.Text.ToString.ToDecimal
                           }
         )
         If ObjOtrosPagos IsNot Nothing AndAlso ObjOtrosPagos.Count > 0 Then cfdi.Nomina.OtrosPagos = ObjOtrosPagos