Prova a sostituire nell'intestazione della funzione la parola chiave ByVal con ByRef