如何使用VBA获取汉字拼音首字母