vba判断字符串全角半角