Cancel and End Sub Double Anomaly

I'm trying to exit my macro if I click 'Cancel' in an input box :

Please Login or Register  to view this content.

Both of these work , and exit the macro correctly when I click cancel.

Unfortunately , if the number I enter into the second box happens to be a zero , it exits also.

Is there a way to have a Double variable cancel when I click the button , but allow me to enter a zero?

Grateful for any help.

You'd be better off using named arguments rather than positional - you've actually got the Type value in the wrong place. You can use a variant for the return, then test its type, since Cancel still returns False:

Please Login or Register  to view this content.

Ok thanks for getting back. I see that's a better way to do it. Thanks!