Create Array Vbscript String Comparison Function