Se magari ci spieghi cos'è una cascata...

Comunque, dopo aver selezionato l'anno, prima di aggiungerlo al listbox, verifichi se esiste già:

codice:
Dim i As Long
Dim sAnno As String
Dim bPresente As Boolean
For i = 0 to Listbox1.ListCount - 1
    If Listbox1.List(i) = sAnno then
        ' esiste già, esco
        bPresente = True
        Exit For
    End If
Next i

If bPresente Then
    Exit Sub
Else
    ' Tuo codice che aggiunge l'anno al listbox
End If