<code>Dim I As Integer
Dim sText As String
 
With List1
  For I = 0 TO .ListCount - 1
    <font color=green>' sText = ersten 5 Zeichen</font>
    sText = Left$(.List(I), 5)
 
    <font color=green>' hier dein weiterer Code (für die Statistik)</font>
    ...
  Next I
End With</code>