Mid Function In Vbscript