Contar items de un listbox

[marcos1979]

No se, se me ocurre, puede que haya otras formas mas fáciles:

Código:

    Dim elemento() As String
    Dim i As Long
    Dim e As Long
    Dim YaEsta As Boolean
    Dim ElementosSinRepetir As Long
    
    ReDim elemento(0)
    
    elemento(UBound(elemento)) = List1.List(i)
    
    For i = 1 To List1.ListCount - 1
        
        YaEsta = False
    
        For e = 0 To UBound(elemento)
        
            If elemento(e) = List1.List(i) Then
            
                YaEsta = True
                Exit For
                
            End If
            
        Next
        
        If YaEsta = False Then
        
            ReDim Preserve elemento(UBound(elemento) + 1)
            elemento(UBound(elemento)) = List1.List(i)
        
        End If
            
    Next
    
    ElementosSinRepetir = UBound(elemento) + 1
    
    MsgBox ElementosSinRepetir

Espero que no sea tarde y que te sirva
Un saludo