Public Function Count(ByVal sString As String, ByVal sFind As String) As Integer Count = UBound(Split(sString, sFind))+1 End Function