¿Cómo ordenar alfabéticamente un listbox con varias columnas VBA Excel?

Tengo un listbox obtenido de varios filtrados desde otro Listbox.

En el Listbox resultante quiero ordenar por la columna 2 y tiene que ser en el Listbox.

Tengo una macro que me ordena un listbox de una sola columna, en este caso necesito de varias.

La macro para una sola columna es:

Sub OrdenarListBox(ControlListBox As MSForms.ListBox)
Dim i As Integer, j As Integer, items As Integer, temp As String
items = ControlListBox.ListCount - 1
For i = 0 To items
For j = i + 1 To items
If ControlListBox.List(j) < ControlListBox.List(i) Then
temp = ControlListBox.List(i)
ControlListBox.List(i) = ControlListBox.List(j)
ControlListBox.List(j) = temp
End If
Next j
Next i
End Sub

¿Cómo hacerlo para que nos ordene el Listbox cuando tiene varias columnas?