sub chkThis(Field, Max)
	If Field.Value <> "" Then
		If Not IsNumeric(Field.value) Then 
			Field.Value = ""
		ElseIf Not IsNull(Max) Then
			If CDbl(Field.value) < CDbl(Max) Then Field.Value = Max
		End If
	End If
end sub