Добавление элемента в отсортированный список по алфавиту

Option Explicit
Function NoDupsSortRDmitry(ByRef arr, Optional Columns_ = -1)
'==============================================================================
'* Автор R Dmitry (Дмитрий Русак [email]dg_rusak@mail.ru[/email] skype: RDG_Dmitry)          |
'* WM:_R269866874234 U144446690328                                            |
'==============================================================================
Dim Slist As Object, i&, Lba&, ii&, jj&, j&
Set Slist = CreateObject("System.Collections.SortedList")
With Slist
If Columns_ = -1 Then
                For i = LBound(arr) To UBound(arr)
                    If Not .Containskey(arr(i)) Then .Add arr(i), arr(i)
                Next
            Lba = LBound(arr)
            ReDim arr(Lba To (.Count - 1) + Lba)
                For i = Lba To UBound(arr)
                    arr(i) = .Getkey(ii): ii = ii + 1
                Next
    
    Else
    
                For i = LBound(arr) To UBound(arr)
                    If Not .Containskey(arr(i, Columns_)) Then .Add arr(i, Columns_), i
                Next
            Lba = LBound(arr)
            ReDim arr2(Lba To (.Count - 1) + Lba, LBound(arr, 2) To UBound(arr, 2))
                For i = Lba To UBound(arr2)
                    jj = .GetByIndex(ii): ii = ii + 1
                    For j = LBound(arr, 2) To UBound(arr, 2)
                        arr2(i, j) = arr(jj, j)
                    Next
                Next
                arr = arr2
    End If
End With
End Function