Vbscript Function Return Multiple Values