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