Obtenha o ano atual VB

Date.Today.Year
Salty Joe