Como ordenar un listbox por fechas

Espero que me puedan ayudar, Tengo una macro en donde al inicio muestro en un listbox las pagos que están por vencer, tengo una columna "CB" que son los días que faltan para el vencimiento, pero no me las muestran en orden, lo que deseo es que se pueda mostrar ordenadamente por la "FECHA LIMITE" que es la columna "CB", espero me puedan ayudar, mi código es el siguiente

Private Sub UserForm_Activate()

Set h1 = Sheets("Hoja1") 'nombre de la hoja
fec = "CB" 
fila = 3 
cols = Array("B", "N", "AW", "V") 
ncol = UBound(cols)
ListBox2.ColumnCount = ncol + 1
For i = fila To h1.Range(fec & Rows.Count).End(xlUp).Row
If h1.Cells(i, fec) <= 31 And h1.Cells(i, fec) >= 0 Then
ListBox2.AddItem ""
For j = LBound(cols) To UBound(cols)
ListBox2.List(ListBox2.ListCount - 1, j) = h1.Cells(i, cols(j))
Next
End If
Next
End Sub