Private Function Mask() As String 'Ex: "__/__/____"
Dim i As Long, TheMask As String
If clsShortYear Then TheMask = "________" Else TheMask = "__________"
i = IIf(clsOrder = dbxYearMonthDay And Not clsShortYear, 5, 3)
Mid(TheMask, i, 1) = clsSeparator
Mid(TheMask, i + 3, 1) = clsSeparator
Mask = TheMask
End Function