VB6 introduced the Split function, which returns a zero-based, one-dimensional array containing a specified number of substrings. Although this function is useful in itself, you can also use it in other useful ways. For example, by combining the UBound and Split functions, you can count how many times a substring?or single character?appears inside another string:
Function InstrCount(Source As String, _ SearchString As String) As Long If Len(Source) Then InstrCount = UBound(Split(Source, SearchString)) End IfEnd Function