Aggiungi prima della sub questa riga

option vbasupport 1

e incrocia le dita sperando che la digerisca.