Sub ValidateData(objSource, objArgs)
  
 	If isDate(objArgs.Value) Then
		if year(objArgs.Value) > 8998 or year(objArgs.Value) < 1800 then	
			objArgs.IsValid = false
			exit sub
		end if
		objArgs.Value = FormatDateTime (objArgs.Value,2)
			
	Else
		If trim(objArgs.Value)<>"" Then
			objArgs.IsValid = false
			exit sub
		End If
	end if

	objArgs.IsValid = True
end sub