Dim str0 As String, idx As Long, str1 As String, str2 As String
成都创新互联公司作为成都网站建设公司，专注网站建设、网站设计，有关成都企业网站定制方案、改版、费用等问题，行业涉及成都混凝土搅拌罐车等多个领域，已为上千家企业服务，得到了客户的尊重与认可。
str0 = "122012312｝R4561_456}7894321}1234123123}"
idx = str0.IndexOf("}")
Do While idx = 0
str1 = str0.Substring(0, idx)
str2 = str0.Substring(idx + 1)
'在文本框中添加显示str1、str2,代码略
str0 = str2
idx = str0.IndexOf("}")
Loop
｛“Xm”：“李明”，“Dh”：“123456”，“Nl”：“30”｝这是个JSON串，在序列化后，可以得到值。你可以使用System.Web.Script.Serialization.JavaScriptSerializer类来完成任务。也可以利用第三方工具比如：Newtonsoft.Json.dll等，来完成任务。
如何使用System.Web.Script.Serialization.JavaScriptSerializer类或第三方工具，网上有大量代码，或参阅微软在线帮助。这里就不贴了。
1、Trim(C)：去掉字符串C两端的空格。
2、Left(C,n)：截取C最左边的n个字符。
3、Right(C,n)：截取C最右边的n个字符。
4、Mid(C,m,n)：截取C中从第m个字符开始的n个字符。
5、Len(C)：返回C包含的字符数，汉字空格都算一个字符。
6、Lcase(C)：将C中的大写字母转化成小写字母。
7、Ucase(C)：将C中的小写字母转化成大写字母。
方法和详细的操作步骤如下：
1、第一步，删除字符串C两端的空格，见下图，转到下面的步骤。
2、第二步，完成上述步骤后，截取C的最左边的n个字符，见下图，转到下面的步骤。
3、第三步，完成上述步骤后，截取C的最右侧n个字符，见下图，转到下面的步骤。
4、第四步，完成上述步骤后，从C中的第m个字符截取n个字符，见下图，转到下面的步骤。
5、第五步，
完成上述步骤后，返回C中包含的字符数，汉字中的空格算作一个字符，见下图，转到下面的步骤。
6、第六步，
完成上述步骤后，将C中的大写字母变为小写字母，见下图，转到下面的步骤。
7、第七步，完成上述步骤后，将C中的小写字母转换为大写字母，见下图。这样，就解决了这个问题了。
用正则表达式啊
如果是在webbrowser中，那更简单了，直接有函数的可以提取的
但是，你那个TD没有ID，没有Name，所以可以用以下方法：
Dim straaa = WebBrowser1.Document.GetElementsByTagName("td")
straaa(num).InnerText 'num是所有td的序号