CountString

Public Function SearchCount(strInput As String, _
strFind As String) As Long
SearchCount = (Len(strInput) - _
Len(Replace(strInput, strFind, ""))) / Len(strFind)
End Function