13518219792
x1,x2,x3,x4是变量名，它们代表的东西必须从上下文判断！
创新互联建站是一家专业提供石门企业网站建设,专注与网站制作、网站设计、html5、小程序制作等业务。10年已为石门众多企业、政府机构等服务。创新互联专业网站建设公司优惠进行中。
str（x1）表示将这些变量的值转换成字符串。
是字符串连接符号，表示将这些字符串连起来。
TextBox1.Text表示TextBox1中原有的字符串。
总体意思：每执行一次这个语句，会在TextBox1的尾巴上增加一些字符，这些字符由x1,x2,x3,x4变量中的值决定！
str(22)把数字22转化为字符串后，系统自动在22前增加一个空格，即符号位（因为正号只占位），如果是负数则用－号占用符号位，所以str(22)的结果是“ 22”，长度为3。
后面的str(3)=" 3"，str(2)=" 2"，它们的字符串的长度都是2（包括了一个符号位空格）。
所以：Len(Str(22) + Str(3) + Str(2))＝len(" 22"+" 3"+" 2")=len(" 22 3 2")=7
Imports System.Text
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim asciiBytes As Byte() = Encoding.Convert(Encoding.Unicode, Encoding.ASCII, Encoding.Unicode.GetBytes("AAAAAAAAAA"))
End Sub
End Class
不知道是不是你想要的。
使用mid函数 ，根据开始位置和字符数量提取。前提是你输入的字符串位数都是一样的。
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 到尾端的所有字符。
