At 10 years old this code is still viable and helping folks! Just posting the snippet here that was useful to me! Incase you can't download it at work here's the code:
Dim intCounter As Integer ' create a loop counter
For intCounter = 0 To YourListBox.ListCount...