Dim st As New Queue

For Each itm In Me
If Not st.Contains(itm.intYear) Then
'not found, add..
st.Enqueue(itm.intYear)
End If
Next

Return st.ToArray