Vbscript Function Return Multiple Values In R