使用mid函数 ，根据开始位置和字符数量提取。前提是你输入的字符串位数都是一样的。
创新互联基于成都重庆香港及美国等地区分布式IDC机房数据中心构建的电信大带宽，联通大带宽，移动大带宽，多线BGP大带宽租用,是为众多客户提供专业服务器托管报价，主机托管价格性价比高，为金融证券行业雅安机房托管，ai人工智能服务器托管提供bgp线路100M独享，G口带宽及机柜租用的专业成都idc公司。
str1=mid(str,1,3)'手机号
str2=mid(str,4,11)'1368555444
str3=mid(str,16,3)'80R
也可以先用replace函数先把“手机号”3个字去除，而后再用split函数根据中间的空格分割为2个字符串。
str=replace(str,"手机号","")
dim str1() as string
str1=str.split(str," ")
str1(0) '1368555444
str1(1) '80R
mid函数的语法：
Mid(string, start[, length])
mid函数的参数：
string 必要参数。字符串表达式，从中返回字符。如果 string 包含 Null，将返回 Null；
start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数，VB.NET Mid函数返回零长度字符串 ("")；
length 可选参数；为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到尾端的所有字符。
用字符串保存两个数据，当然只有你这种办法，另外提供你其它思路：
1. flexcell增加两列，这两列隐藏不显示，额外数据可以从这两列读取
2. 用自定义类型数组，保存这两列数据，数组顺序和表格一样，或者数组中增加一个ID元素，与表格对应
str = (str.Substring(str.IndexOf("-"), (str.LastIndexOf("-")) - (str.IndexOf("-"))));
有许多字符串操作技巧可以帮助你优化代码，以获得更好的性能。StringBuilder允许你执行重复的字符串操作，取得比手工操作更佳的性能。在本文中，我说明在VB.NET中利用StringBuilder的情况。应用StringBuilder的优点StringBuilder是一个可修改字符的缓冲器。当你不直接进行字符串操作而应用StringBuilder时，与每次重复生成一个含有修正的新字符串相比，这样可以获得更佳的性能。你不能总是希望性能得到提高，因为StringBuilder有少量的过度操作，会将指定字符串的内容复制到StringBuilder中，然后将由StringBuilder得到的结果值复制回字符串对象中。在进行二个或更多字符串操作时，我建议使用StringBuilder。(如果只有一项改变，将值复制进StringBuilder再拷贝出来并不会改善性能。)StringBuilder方法Append:允许你在缓冲器末端增加一个字符串。注意，在应用StringBuilder对象时不能使用操作符。
Insert:允许你在StringBuilder对象中增加一个字符串。(就像String.Insert一样。)
Remove:允许你从StringBuilder对象中删除一个字符串。(就像String.Remove一样。)
Replace:允许你替代StringBuilder对象的一部分。(就像String.Replace一样。)
实例在列表A的样本代码中，我建立一个字符串变量strOriginal来保存原始文本的值。我还定义StringBuilder对象BuilderStr，我将利用它对存储在srtOriginal中的文本进行字符串操作。定义BuilderStr时，我将它设定到strOriginal的值中。之后，我操作BuilderStr，给它添加一些文本(“is”,
”very”,”
important”)，然后再利用Replace方法去掉”very”这个单词。(注意，在这个例子中，你使用Remove方法而非Replace方法。)最后，我用BuilderStr.ToString的值更新strOriginal，并在信息框中显示所得到的字符串。
substring 就是对一个指定的字符窜进行字符窜截取的方法。
运用的形式差不多如下：
截取后的字符窜 = 指定字符窜.substring（开始截取位置[第一位从0开始],截取长度）
Dim str As String = "dsk_cy"
Dim resultStr As String = str.substring(0,2)'截取最左边的两个字符 即 resultStr = “ds”
Dim reulst As String = str.substring(1,2) '截取从最左边数第二位开始的两个字符 即 result = “sk”
