Example:

  1. Sub Main

    1. MyDate = "11/11/94"

      x = Year(MyDate)

      print x

    End Sub