Private Sub Cantidad_Exit(ByVal Cancel As MSForms.ReturnBoolean)If Cantidad <> "" And preciounit <> "" ThenSubtotal = Val(Cantidad) * Val(preciounit)Subtotal = Format(Subtotal, "##,##0.000")End IfEnd Sub_____________________________________________________________________Private Sub preciounit_Exit(ByVal Cancel As MSForms.ReturnBoolean)If Cantidad <> "" And preciounit <> "" ThenSubtotal = Val(Cantidad) * Val(preciounit)'Subtotal = Format(Subtotal, "##,##0.000")End IfEnd Sub__________________________________________________________________Private Sub Subtotal_Exit(ByVal Cancel As MSForms.ReturnBoolean)If Subtotal <> "" Theniva = Val(Subtotal) * 0.16iva = Format(iva, "##,##0.000")End IfEnd Sub__________________________________________________________________Private Sub iva_Exit(ByVal Cancel As MSForms.ReturnBoolean)If Subtotal <> "" And iva <> "" ThenTotal = Val(Subtotal) + Val(iva)Total = Format(Total, "##,##0.000")End IfEnd Sub