Dim I As Integer
For I = 0 To List1.ListCount - 1
'Code to do with each item in that list box here
Next I
Dim I As Integer
For I = 0 To List1.ListCount - 1
'Code to do with each item in that list box here
Text1.Text = List1.List(I)
Next I