Merhaba.
Kodu resimdeki gibi yere ekleyin.
Ado ile vs.. yapılır lakin Türkçe karakterler en sonda sıralanır biliyorum bu yüzden böyle tam sıralanır.
Çok fazla veri varsa combobxta biraz yavaş çalışabilir Ado ya göre.
Yavaş olursa yazın önce ado ile alıp sonra bu şekildede sıralatınca hızlı olur bence.


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

     Dim x As Long, y As Long, atla As String

    With ComboBox_FirmaUnvani

        If .ListCount = 0 Then Exit Sub

        For x = LBound(.List) To UBound(.List)

            For y = x To UBound(.List)

                If StrComp(.List(x, 0), .List(y, 0), vbTextCompare) = 1 Then

                    atla = .List(x, 0)

                    .List(x, 0) = .List(y, 0)

                    .List(y, 0) = atla

                End If

            Next

        Next

    End With