Je crois que le End dans ta fonction calcul() termine le programme ...
Edit -- lorsque tu déclares une Sub sans rien devant elle est Private par défaut, ç-à-d que tu ne peux l'appeller que depuis la form ou le module où elle se trouve ... si par contre tu créés une Public Sub tu pourras l'appeller depuis n'importe où.