Contar items de un listbox

[Quemero]

Hola quiero saber como hago para contar los items que hay en total en un listbox pero sin contar los repetidos, (sin necesidad de borrar los repetidos para contar)

por ejemplo si tengo

A-B-C-D-A-B

me tendria que contar 4 solamente: A, B, C y D, porque los otros dos estan repetidos y no cuentan

¿¿como puedo hacer??

desde ya muchas gracias, chau

[Quemero]

Por Favor Es Urgente Necesito Que Me Ayuden Con Esto

Ya Busque En Las Faq Pero No Hay Nada

Gracias

[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