VBA返回字符窜右连第一个