In Listen muss man leider über den Index arbeiten.
---------------------------------------------
Private Sub Form_Load()
Dim i As Integer
For i = 0 To Me.lstData.ListCount - 1
Debug.Print Me.lstData.List(i)
Next
End Sub
---------------------------------------------
MSDN