Year(Date)
Sub Main8() Debug.Print "Today's date is: " & Date Debug.Print "The year is: " & Year(Date) End Sub