Vba Createobject Vbscript If Statement