Createobject Vbscript Substring Function