vb中用mid函数提取数字