Createobject Vbscript If Statement