Substring Vbscript Msgbox Example