Dim sData() As String
 
sData = Split(List1.List(0), " ")
Debug.Print sData(0)  ' Nachname
Debug.Print sData(1)  ' Vorname
Debug.Print sData(2)  ' Klasse
Debug.Print sData(3)  ' Klassenbezeichnung
Debug.Print sData(4)  ' usw.

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de