Sub End_Date()
Dim myEnd As Date
Dim myStart As Date
myEnd = ActiveDocument.FormFields("End").Result
myStart = ActiveDocument.FormFields("Begin").Result
If myEnd <= myStart Then
   MsgBox "Term ending date must be after beginning date."
End If
End Sub