Сортировка слов по алфавиту

    First = LBound(mld_unik)
    Last = UBound(mld_unik)
    For i = First To Last - 1
       For j = i + 1 To Last
          If mld_unik(0, i) > mld_unik(j) Then
             Temp = mld_unik(j)
             mld_unik(j) = mld_unik(i)
             mld_unik(i) = Temp
          End If
       Next j
    Next i

Option Explicit
'Option Compare Text 'Без учета регистра
 
Sub Test()
    ReDim a(0 To 5) As String 'Массив должен быть динамическим, так как он будет перестраиваться (удаление дублей)
    
    a(0) = "340x350x110"
    a(1) = "440x340x300"
    a(2) = "340x220x110"
    a(3) = "440x340x300"
    a(4) = "340x300x220"
    a(5) = "500x400x300"
    
    qSort a, 0, UBound(a) ' Быстрая сортировка
    
'    RemoveDouble a 'Удаление дублей
    
    MsgBox Join(a, vbCrLf) 'Вывод (можно вывести еще кудато там)
    
End Sub
 
Sub qSort(Arr, i&, j&)
    '
    'Сортировка скоростной способ (рекурсия)
    
    Dim ii&, jj&, s$, t$: ii = i: jj = j: s = Arr((ii + jj) \ 2)
    Do Until ii > jj: Do While Arr(ii) < s: ii = ii + 1: Loop: Do While Arr(jj) > s: jj = jj - 1: Loop
        If (ii <= jj) Then t = Arr(ii): Arr(ii) = Arr(jj): Arr(jj) = t: ii = ii + 1: jj = jj - 1
    Loop: Do While i < jj: qSort Arr, i, jj: Exit Do: Loop: Do While ii < j: qSort Arr, ii, j: Exit Do: Loop
End Sub
 
Sub RemoveDouble(Arr)
    '
    'Удаление дублей
    '
    Dim i&, j&
 
    For i = 1 To UBound(Arr)
        If Arr(j) <> Arr(i) Then
            j = j + 1: Arr(j) = Arr(i)
        End If
    Next
    ReDim Preserve Arr(j)
    
End Sub

Dim x, cl As New Collection, s$
s = mld_unik(3, 0)
cl.Add s
For i = LBound(mld_unik, 2) To UBound(mld_unik, 2)
    s = mld_unik(3, i)
    For x = 1 To cl.Count
        If s < cl(x) Then cl.Add s, s, Before:=x: Exit For
    Next
Next i