non per fare il precisino ma la messagebox non resituisce integer
ma elementi dell' enum vbmessageboxresult e sono long