< Public Function CountIn (SearchIn As String, SearchFor As String) As Long (?)
Comments'------------------------------------------------------------------------- 'Count occurances of a character in a string '-------------------------------------------------------------------------
Public Function CountIn (SearchIn As String, SearchFor As String) As Long
Dim i As Long
Dim Count As Long
Dim LenSearchFor As Long
LenSearchFor = Len(SearchFor)
If SearchFor = "" Then Exit Function
Count = 0
If Len(SearchIn) < LenSearchFor Then
CountIn = 0
Exit Function
End If
For i = 1 To (1 + Len(SearchIn) - LenSearchFor)
If Mid(SearchIn, i, LenSearchFor) = SearchFor Then Count = Count + 1
Next
CountIn = Count
End Function