Sorry, Dave, but the first two lines are throwing up a syntax error.

If InStr(1, frmEnlistment.txtEnlistmentDate.Text, "/", 1) <> 3 Or
 _InStr(4, frmEnlistment.txtEnlistmentDate.Text, "/", 1) <> 6 Then