Code:
.Subject = varBody(1, 3) & ", Expired account notification"