正则表达式：“第\S{1,3}次”
我们提供的服务有：网站制作、网站建设、微信公众号开发、网站优化、网站认证、下城ssl等。为1000多家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的下城网站制作公司
1-3表示第和次之间可能存在1-3个字符。
For Each i In System.Text.RegularExpressions.Regex.Matches("你的内容第一次第三次第十四次第七十七次替换为", "第\S{1,3}次")
MsgBox(i.value())
Next
有一个字符串函数：Instr(n,S1,S2)
该函数的功能：从字符串S1的左起第N位开始，向右逐位进行搜索匹配字符串S2，如果找到匹配，就返回一个整数指明匹配的位置，否则就返回0。如果缺省n，就是默认从字符串S1的左起第1位开始，进行搜索匹配字符串S2。
例如1：Instr(1,"abcde","a")，返回1
例如2：Instr(3,"abcde","a")，返回0
例如3：Instr(1,"abcde","c")，返回3
例如4：Instr(1,"abcde","cde")，返回3
例如5：Instr(4,"ab12cd12e12","12")，返回7，这里从字符串"ab12cd12e12"左起第4位开始向右搜索匹配字符串"12"，找到的是中间一个“12”，这个“12”是位于字符串"ab12cd12e12"左起的第7个字符。
而：Instr(1,"ab12cd12e12","12")，返回3
Instr("ab12cd12e12","12")，返回3
没有这种函数，自己做一个函数，效率不会低，因为都是简单运算：
Function FillString(ByVal a As String, ByVal b As String, ByVal c As Integer) As String
If a.Length c Then
Return a + StrDup(c - a.Length, b)
Else
Return Mid(a, 1, c)
End If
End Function
用法 RndString(xx) xx为随机数字长度
比如12位长度的随机字符串 则为 RndString(12)
字符串包含数字和大小写字母，函数如下：
Function RndString(ByVal l As Integer) As String
Randomize()
Dim R, i As Integer
Dim S As Char
Dim returnStr As String
returnStr = ""
'a-z 的ASCII码是：97-122
'A-Z 的ASCII码是：65-90
'0-9 的ASCII码是：48-57
For i = 1 To l
R = Int(Rnd() * 62) '随机生成的字符有大小写字母和数字，共有26个
If R 10 Then '如果小于10，则是数字 数字的ASCII是48-57 对应 随机数字 0-9 所以要将随机数字加48
S = Chr(R + 48) 'Chr 是将把数字按Ascii码转换为对应的字符
ElseIf R 36 Then '如果小于36，则是大写字母 大写字母的ASCII是65-90 对应 随机数字10-35 所以要将随机数字加55
S = Chr(R + 55)
Else '如果大于36，则是小写字母 小写字母的ASCII是97-122 对应 随机数字36-62 所以要将随机数字加61
S = Chr(R + 61)
End If
returnStr = returnStr + S
Next
RndString = returnStr
End Function
很简单，用字符串查找函数就可以实现了。
当在StrB查找到StrA字符串时，返回肯定是非0的数，值就是True，找不到为0或者-1，值就是Flase
比如：
Dim StrA As String = "Time is Limited"
Dim StrB As String = "Time"
Dim Stu As Boolean= InStr(StrA, StrB)
这运行段代码，Stu值就是True了。
我觉得这样最简单有效。