Createobject Vbscript If And