VB 从右边截取字符串可以使用Right函数：
成都创新互联成立10余年来，这条路我们正越走越好，积累了技术与客户资源，形成了良好的口碑。为客户提供成都做网站、成都网站设计、网站策划、网页设计、域名与空间、网络营销、VI设计、网站改版、漏洞修补等服务。网站是否美观、功能强大、用户体验好、性价比高、打开快等等，这些对于网站建设都非常重要，成都创新互联通过对建站技术性的掌握、对创意设计的研究为客户提供一站式互联网解决方案，携手广大客户，共同发展进步。
Private Sub Command1_Click()
s = "1234567890"
s1 = Right(s, 4)
Print s; "的右边4个字符是"; s1
End Sub
使用mid函数 参数1是文本内容 参数2是起始位置 参数3是截取的数量
Private Sub Command1_Click()
MsgBox Mid(Text1.Text, Val(Text2.Text), Val(Text3.Text) - Val(Text2.Text) + 1)
End Sub
你自己的代码问题是 参数3 题目说到第几个字符 你应该是用这个数减去起始位置+1 才是数量
因为不一定从第一个开始
｛“Xm”：“李明”，“Dh”：“123456”，“Nl”：“30”｝这是个JSON串，在序列化后，可以得到值。你可以使用System.Web.Script.Serialization.JavaScriptSerializer类来完成任务。也可以利用第三方工具比如：Newtonsoft.Json.dll等，来完成任务。
如何使用System.Web.Script.Serialization.JavaScriptSerializer类或第三方工具，网上有大量代码，或参阅微软在线帮助。这里就不贴了。
VB可使用Split函数取出问帖所要的斜杠后右侧字符串。
Split函数：
描述
返回一个下标从零开始的一维数组，它包含指定数目的子字符串。
实现代码如下：
Private Sub Command1_Click()
Dim strsj As String
Dim i As Long
Dim rightStr
strsj = "
rightStr = Split(strsj, "/")
i = UBound(rightStr)
Debug.Print rightStr(i)
End Sub
