Ciao.
Non ti ha chiesto di RIspiegare l'obbiettivo ..... ma di indicare il tipo di errore ed in quale riga del programma .... è ovvio che l'errore non sta nella funzione ApriSerratura ma, più probabilmente, nella Sub aggiungiRitorno.
Facci sapere...
Ciao