vb截取指定位置字符串