Получите текущий год VB

Date.Today.Year
Salty Joe