Dim strText() As String
Dim GesamtText As String
Dim i As Integer
 
Text6.Text = ListView1.SelectedItem.ListSubItems(18).Text
GesamtText = Text6.Text
 
'GesamtText = Split(GesamtText, ",")          was ist der Unterschied zur 
' folgenden Zeile ?
strText = GesamtText.Split(",")
 
For i = 0 To strText.Length - 1
   MsgBox (strText(i))
Next