Wait Sub In Vbscript Substring