Dim MyArray() As Integer = {1, 3, 5, 3}
 
For i As Integer = 0 To MyArray.Length - 1
  If Array.IndexOf(MyArray, MyArray(i), i + 1) < 0 Then
    Debug.Print(MyArray(i))
  End If
Next i

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de