Vbscript Function Return Array Vba