CountItemString

Function Tally(sText As String, sFind As String) As Long
Dim lFind As Long
Dim lLast As Long
Do
lFind = InStr(lLast + 1, sText, sFind)
If lFind Then
lLast = lFind
Tally = Tally + 1
End If
Loop Until lFind = 0
End Function