Createobject Vbscript If Then