CountString
Public Function SearchCount(strInput As String, _ strFind As String) As Long SearchCount = (Len(strInput) - _ Len(Replace(strInput, strFind, ""))) / Len(strFind) End Function
Public Function SearchCount(strInput As String, _
strFind As String) As Long
SearchCount = (Len(strInput) - _
Len(Replace(strInput, strFind, ""))) / Len(strFind)
End Function
(countstring.html)- by Paolo Puglisi - Modifica del 25/3/2019