Sortierung eines Arrays?

Sub Array_füllen()
Dim lngRowNamen As Long
Dim lngEintrgasnummer As Long
Dim arr() As String
Erase arr
For lngRowNamen = 2 To Quelle.Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Quelle.Range("D2:D" & lngRowNamen), _
Quelle.Cells(lngRowNamen, 4)) = 1 Then
lngEintrgasnummer = lngEintrgasnummer + 1
ReDim Preserve arr(1 To 2, 1 To lngEintrgasnummer)
arr(1, lngEintrgasnummer) = Quelle.Cells(lngRowNamen, 4)
arr(2, lngEintrgasnummer) = lngRowNamen
End If
Next
With Ziel.ComboBox1
.Clear
.ColumnCount = 2
.ColumnWidths = "4cm; 0cm"
If lngRowNamen > 0 Then _
.List() = WorksheetFunction.Transpose(arr)
End With
End Sub