• Home
 · 
• String Manipulation
 · 
• This function takes a string of items sSource separated by sItem string. It returns the number of i

This function takes a string of items sSource separated by sItem string. It returns the number of i

This function takes a string of items sSource separated by sItem string. It returns the number of items in list.

Rate This function takes a string of items sSource separated by sItem string. It returns the number of i

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim temp As String
On Error GoTo NumberOfTextItems_error

    temp = Replace(sSource, sItem, "")
    NumberOfTextItems = (Len(sSource) - Len(temp)) / Len(sItem)

Exit Function
NumberOfTextItems_error:
NumberOfTextItems = 0
Exit Function
End Function