vba截取某个字符前的字符串