josesg respondió:
Prueba la siguiente función. No he conseguido leer entero tu mensaje si tienes alguna duda dímelo. Function VALORCERO(CANTIDAD As Variant) As Double If IsNull(CANTIDAD) Then VALORCERO = 0 Else VALORCERO = CANTIDAD End If End Function