Input Mask
Instead of using a mask, which is not very user friendly, you can do this.
Put the following code in the After Update Event of the field:
Dim t_Lastname As String
t_Lastname = UCase(Left([Lastname], 1)) & Mid([Lastname], 2, 40)
Me.Lastname = t_Lastname
After the field is updated...