Createobject Vbscript String Length