'方法1：

         Dim str As String

         str = ""

         MsgBox(UBound(Split(str, "")))  

 '方法2：

         Dim n&, j&

         j =

         n = InStr(, text1.Text, "/ITEMNAME")

         While n <>

             n = InStr(n + , text1.text, text2.text)

             j = j +

         Wend

         Print(j)

 '方法3：

 '调用 strCount(TextBox8.Text, "/ITEMNAME")

     Function strCount(ByVal strA As String, ByVal strB As String) As Long

         Dim lngA As Long

         Dim lngB As Long

         Dim lngC As Long

         lngA = Len(strA)

         lngB = Len(strB)

         lngC = Len(Replace(strA, strB, ""))

         strcount = (lngA - lngC) / lngB

         MsgBox(strCount)

     End Function