Date Part Function

Dim MyDate, MySysDate
MyDate = "January 11, 1981"
MyReturn = CDate(MyDate)
MsgBox MyReturn
StrDatepart = DatePart("yyyy", MyDate)
MsgBox StrDatepart