Dim a() As Integer = {10261, 10271, 10271, 10826, 10721, 10826, 10921}
        Dim al As New ArrayList
        For Each i As Integer In a
            If Not al.Contains(i) Then al.Add(i)
        Next
        a = al.ToArray(GetType(Integer))
        For Each i As Integer In a
            Debug.WriteLine(i)
        Next

 
        Dim a() As Integer = {10261, 10271, 10271, 10826, 10721, 10826, 10921}
        Dim al As New ArrayList
        a.Sort(a)
        For i As Integer = 0 To UBound(a)
            If i = 0 OrElse a(i - 1) <> a(i) Then
                al.Add(a(i))
            End If
        Next
        a = al.ToArray(GetType(Integer))
        For Each i As Integer In a
            Debug.WriteLine(i)
        Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist