Как упорядочить массив возрастающих чисел?

Dim arrSource() As Integer = {10, 20, 30, 40, 0, 10, 60, 70, 80, 90}

Dim arrDest() As Integer = {10, 20, 30, 40, 60, 70, 80, 90}

        Dim arrSource() As Integer = {10, 20, 30, 40, 0, 10, 60, 70, 80, 90}
        Dim arrDest(0)
        For i = 0 To arrSource.Count - 1
            If arrDest(arrDest.Count - 1) < arrSource(i) Then
                If i > 0 Then ReDim Preserve arrDest(arrDest.Count)
                arrDest(arrDest.Count - 1) = arrSource(i)
            End If
        Next

        Dim arrSource() As Integer = {10, 20, 30, 40, 0, 10, 60, 70, 80, 90}
        Dim pred As Integer
        arrSource = arrSource.Where(Function(El, Ind)
                                        If (Ind = 0) OrElse (pred < El) Then
                                            pred = El
                                            Return True
                                        Else
                                            Return False
                                        End If
                                    End Function).ToArray

Structure AData
        Public t As Int32
        Public v0 As Single
        Public v1 As Single
        Public v2 As Single
        Public v3 As Single
        Public v4 As Single
        Public v5 As Single
        Public v6 As Single
        Public v7 As Single
    End Structure
Public elem(150000) As AData

        Dim arrSource() As Integer = {10, 20, 30, 40, 0, 10, 60, 70, 80, 90}
        Dim pred As Integer, saveInd As Integer = 0
        For Each El As Integer In arrSource
            If saveInd = 0 OrElse pred < El Then
                arrSource(saveInd) = El
                pred = El
                saveInd += 1
            End If
        Next
        If saveInd < arrSource.Count Then ReDim Preserve arrSource(saveInd - 1)

arrSource = arrSource.Where(Function(El)
                                        If pred < El Then
                                            pred = El
                                            Return True
                                        Else
                                            Return False
                                        End If
                                    End Function).ToArray

dim pred=arrSource(0)-1