统计一个字符串在另一个字符串里的个数

Function SubStringCount(ByVal sSource As String, ByVal sFind As String) As Integer
        SubStringCount = 0

        Dim iLenFind As Integer, iStart As Integer

        iLenFind = Len(sFind)
        iStart = 1

        Dim iPtr As Integer
        iPtr = 0

        Dim iPos As Integer
        iPos = InStr(iStart, sSource, sFind, CompareMethod.Text)
        If iPos > 1 Then
            SubStringCount = 1
            While (iPos)
                iPos = InStr(iPos + iLenFind, sSource, sFind, CompareMethod.Text)
                If iPos > 0 Then
                    SubStringCount = SubStringCount + 1
                End If
            End While

        End If

    End Function