vb字符串截取字符函数