1 ‘方法1： 2         Dim str As String 3         str = "12345678" 4         MsgBox(UBound(Split(str, "3")))   5   6 ‘方法2： 7         Dim n&, j& 8         j = 0 9         n = InStr(1, text1.Text, "/ITEMNAME")10         While n <> 011             n = InStr(n + 1, text1.text, text2.text)12             j = j + 113         Wend 14         Print(j)15 16  17 ‘方法3：18 ‘调用 strCount(TextBox8.Text, "/ITEMNAME")19  20     Function strCount(ByVal strA As String, ByVal strB As String) As Long21         Dim lngA As Long22         Dim lngB As Long23         Dim lngC As Long24         lngA = Len(strA)25         lngB = Len(strB)26         lngC = Len(Replace(strA, strB, ""))27         strcount = (lngA - lngC) / lngB28         MsgBox(strCount)29  30  31     End Function