Buda başka yoldan.Normalde bununlada Tr karakterler en altta sıralanıyordu ama ne hikmetse doğru sıralanıyor
3bin küsur 1 saniye sürdü.


https://resim.accesstr.net/do.php?img=11022

    Dim dic_col As Object: Set dic_col = CreateObject("System.Collections.ArrayList")

    If ComboBox_FirmaUnvani > 0 Then

        With dic_col

            For i = 0 To ComboBox_FirmaUnvani.ListCount - 1

                If Not dic_col.Contains(CStr(ComboBox_FirmaUnvani.List(i, 0))) Then _

                .Add CStr(ComboBox_FirmaUnvani.List(i, 0))

            Next

            .Sort: ComboBox_FirmaUnvani.Clear: ComboBox_FirmaUnvani.List = .toarray: .Clear

        End With

    End If

    Application.ScreenUpdating = True

    Set dic_col = Nothing