vb字符串处理函数