Vbscript Check If Character Exists In String