For i = 0 To rowCount - 1
     col1 = cmdmgr.GetListValue("kat", i, 0)
     col2 = cmdmgr.GetListValue("kat", i, 1)
     col3 = cmdmgr.GetListValue("kat", i, 2)
      
      If col3 = a Then
       AddItem col1, Me.cboType  '' отправляем на сортировку
       cboType.List(cboType.ListCount - 1, 1) = col2  ''добавляем второй столбец
       Debug.Print ("col1 = " & col1)
       Debug.Print ("col2 = " & col2)
      End If
     Next i
     

Sub AddItem(sItem As String, cmbBox As ComboBox)
    ' adds item retaining alphabetic order
     Dim l As Long
    For l = 0 To cmbBox.ListCount - 1
        Select Case StrComp(cmbBox.List(l), sItem, vbTextCompare)
        Case 0: Exit Sub ' already in the combobox
        Case 1
            cmbBox.AddItem sItem, l
            Exit Sub
        End Select
    Next l
    cmbBox.AddItem sItem
End Sub