Sort list Box

[lifeson]

I have the following code that poulates a list box on a form

With lstAcc
ReDim aryItems(1 To iLastRow)
For i = 2 To iLastRow
If Cells(i, "A").Value = idx Then
.AddItem Cells(i, "B").Value
.List(.ListCount - 1, 1) = Cells(i, "C")
.List(.ListCount - 1, 2) = Cells(i, "D")
End If
Next i
End With

How can I sort the list based on the values in the third column in the list box (column D)
Column D will be sequence number

[Bob Phillips]

Sort the worksheet range, and pop it in.

[lifeson]

Sort the worksheet range, and pop it in.

Sometimes I think I am looking too hard for a solution and forget the obvious
Just sorting the worksheet by column D solves the problem