189 8069 5689
str(22)把数字22转化为字符串后，系统自动在22前增加一个空格，即符号位（因为正号只占位），如果是负数则用－号占用符号位，所以str(22)的结果是“ 22”，长度为3。
创新互联建站是一家专业提供夷陵企业网站建设,专注与成都网站设计、网站制作、H5响应式网站、小程序制作等业务。10年已为夷陵众多企业、政府机构等服务。创新互联专业网站设计公司优惠进行中。
后面的str(3)=" 3"，str(2)=" 2"，它们的字符串的长度都是2（包括了一个符号位空格）。
所以：Len(Str(22) + Str(3) + Str(2))＝len(" 22"+" 3"+" 2")=len(" 22 3 2")=7
numHex =Integer.Parse(strHex, Globalization.NumberStyles.AllowHexSpecifier)
或
numHex = Integer. Parse("H" strHex)
VB6的String()函数，在VB.NET中，改用 StrDup()函数，使用格式与VB6的String()函数类似：
例如：
VB6中，String(5,"*") ，是产生5个星号字符，"*****"
VB.Net中，改用 StrDup(5,"*") ，也是产生5个星号字符，"*****"
使用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 到尾端的所有字符。
VB.Net自带函数：
十进制转八进制：Oct(num)
十六进制转八进制：oct("H" num)
十进制转十六进制：hex(num)
八进制转十六进制：hex("O" num)
十六进制转换为十进制：CLng("H" num)
str = (str.Substring(str.IndexOf("-"), (str.LastIndexOf("-")) - (str.IndexOf("-"))));