For cik =  1  To UBound(Split(Ret, "|"))
    cmbCatDen.AddItem Piece(Ret, "|", cik)
    Next cik
 

Private Sub Command2_Click()
Dim Ret As String, Er As String
 
.
.
.

Dim fields() As String

fields() = Split(Ret, "|")

For i =  0  To UBound(fields)
    cmbCatDen.AddItem Trim$(fields(i))
Next

  

Function Piece(chars As String, Delimiter As String, position As Long)
   
    If position <  1  Then
        Piece = ""
        Exit Function
    End If

    ReDim Where( 0  To position +  1 ) As Long
    Where( 0 ) =  1 
    current =  1 
    Length = Len(Delimiter)

    For Count =  1  To position
        Where(Count) = InStr(current, chars, Delimiter)
        If Where(Count) =  0  Then Where(Count) = Len(chars) +  1 
        current = Where(Count) + Len(Delimiter)
    Next Count
 
    If position =  1  Then
        Length =  0 
    End If
    
    If (Where(position) = Where(position -  1 )) Then
        back = ""
    Else
        back = Mid(chars, (Where(position -  1 ) + Length), (Where(position) - Where(position -  1 ) - Length))
    End If
    
    Piece = back

End Function