Obtener el año en curso VB

Date.Today.Year
Salty Joe