Function TrimValue(Value)
TrimValue = Trim(Value)
End Function
Function Validate_Email(Expression)
Dim objRegExp
Set objRegExp = New RegExp
objRegExp.Pattern = "^[\w\.-]+@[\w\.-]+\.[a-zA-Z]+$"
Validate_Email = objRegExp.Test(Expression)
End Function