La variabile anno :
- che valore ha all'inizio del ciclo? Dim anno As Integer, e poi?
- che valore assume durante il ciclo? (anno & y)
I tuoi sono errori a dir poco 'banali' e non si dovrebbe rivolgersi ad un forum per risolverli, perché sono

Devi imparare a fare il DEBUG del codice altrimenti non andrai da nessuna parte.
https://docs.microsoft.com/it-it/vis...ectedfrom=MSDN