Public Function Count(ByRef vsInput As String, ByRef vsPattern As String, Optional ByVal veCompare As VbCompareMethod = vbBinaryCompare) As Integer
Dim i As Long
i = InStr(1, vsInput, vsPattern, veCompare)
Do While i
Count = Count + 1
i = InStr(i + 1, vsInput, vsPattern, veCompare)
Loop
End Function