Como posso colocar essa minha listbox em ordem alfabetica, usando como criterio as duas primeiras coluna?

Sub PreencherListBoxBaixaEntrega()
Sheets("Entrega").Activate
Dim ultimalinha As Long
Dim linha As Integer
ultimalinha = Plan9.Range("A1").End(xlDown).Row
For linha = 2 To ultimalinha
Frm_BaixaEntrega.ListBox_BaixaEntrega.AddItem Plan9.Range("B" & linha).Value
Frm_BaixaEntrega.ListBox_BaixaEntrega.List(Frm_BaixaEntrega.ListBox_BaixaEntrega.ListCount - 1, 1) = Plan9.Range("C" & linha).Value
Frm_BaixaEntrega.ListBox_BaixaEntrega.List(Frm_BaixaEntrega.ListBox_BaixaEntrega.ListCount - 1, 2) = Plan9.Range("D" & linha).Text
Frm_BaixaEntrega.ListBox_BaixaEntrega.List(Frm_BaixaEntrega.ListBox_BaixaEntrega.ListCount - 1, 3) = Plan9.Range("G" & linha).Value
Frm_BaixaEntrega.ListBox_BaixaEntrega.List(Frm_BaixaEntrega.ListBox_BaixaEntrega.ListCount - 1, 4) = Plan9.Range("I" & linha).Value
Next
Sheets("Entrega").Activate
Range("B2").Select
End Sub