function TrimValue(value)
	value=Trim(value)
	TrimValue=value
end function

function validate_email(Expression)
   	Dim objRegExp
   	Set objRegExp = New RegExp
   	objRegExp.Pattern = "^[\w-]+@[\w-]+\.(com|net|org|edu|mil|ir|co.uk|fr|ca)$"
   	validate_email = objRegExp.Test(Expression)
end function