Validation
The following is not perfect, but it's a start, it goes in the Before Update Event of the field.
Private Sub Email_BeforeUpdate(Cancel As Integer)
If InStr(1, Email, "@") = 0 Then
MsgBox " Email Address Invalid! '@' is missing. ", vbOKOnly, """"
Cancel = True
Else
If...