vbscript: Implemented Sgn