Trevor,
I's struggling.
When the VBA screen opens there are several lines of text. I assume I insert the code between Private and End as shown. I changed YourDateFieldName to my field name of Date_Last_Modified. It looks like this:
Private Sub Date_Last_Modified_AfterUpdate()...