Substring Vbscript Msgbox Function