Snippet Library

none

Public Function ItemCount(ByVal sOrigStr As String, ByVal sDelim As String) As Long
'
' Returns the number of occurances of sDelim in szStr)
'
    Dim lCount As Long
    Dim lPos As Long
    Dim lPos2 As Long
    Dim bOver As Boolean
    Dim lDelim As Long

    On Error GoTo vbErrorHandler

    lPos = 0
    lCount = 0

    If sOrigStr = "" Then
        ItemCount = 0
        Exit Function
    End If
    lDelim = Len(sDelim)

    Do
        lPos2 = InStr(lPos + lDelim, sOrigStr, sDelim)
        If lPos2 = 0 And lPos = 0 Then
            lCount = 1
            Exit Do
        Else
            If lPos2 = 0 Then
                If Mid$(sOrigStr, lPos + lDelim, 1) <> "" Then
                    lCount = lCount + 1
                End If
                Exit Do
            End If
        End If
        lCount = lCount + 1
        lPos = lPos2
    Loop
    ItemCount = lCount
    Exit Function

vbErrorHandler:
'
' Handle Error Here !
'
End Function;