vba创建字符数组并赋值