Varrer collection e descobrir item já adicionado?

[vilmarbr]

Varrer collection e descobrir item já adicionado? Como eu faço isto?

Tentei o esquema abaixo, mas mesmo assim tá colocando itens repetidos. Vejam:

Grato.

Private Sub Form_Load()
    Dim vrtI         As Variant
    Dim vrtJ         As Variant
    Dim strSequencia As String
    Dim colSequencia As Collection
    
    Set colSequencia = New Collection
    
    For vrtI = 1 To 8.88178419700125E+84
        Randomize
        strSequencia = IIf(Int(Rnd * 50) = 0, 1, Int(Rnd * 50)) & " " & _
                       IIf(Int(Rnd * 50) = 0, 1, Int(Rnd * 50)) & " " & _
                       IIf(Int(Rnd * 50) = 0, 1, Int(Rnd * 50)) & " " & _
                       IIf(Int(Rnd * 50) = 0, 1, Int(Rnd * 50)) & " " & _
                       IIf(Int(Rnd * 50) = 0, 1, Int(Rnd * 50))
        
        For vrtJ = 1 To colSequencia.Count
            If colSequencia(vrtJ) <> strSequencia Then
                colSequencia.Add strSequencia
            End If
        Next

        
        If colSequencia.Count = 0 Then
            colSequencia.Add strSequencia
        End If
        
        If vrtI = 10 Then
            MsgBox "Fim"
            End
        End If
    Next
End Sub

Editado Junho 9, 2009 por kuroi
Adicionar tag CODE