Vbscript Split Array Count