' Menge der Zahlen durch Komma getrennt als String
        Dim text As String = "1,2,3,4,5,1,2,3,4,5,1,2,3,4,5,1,2,3,4,5"
 
        ' Zeichenkette zerlegen und in ein Array schreiben
        Dim parts() As String = text.Split(","c)
 
        ' Summe der einzelnen Gruppen (5 Gruppen, Index nullbasiert)
        Dim sums(4) As Integer
 
        ' Iteriere durch jede dieser Gruppe
        For i As Integer = 0 To 4
            ' Zähle bei der jeweiligen Gruppe beginnend (i) bis zum Ende des 
            ' Arrays (Menge minus 1, da Index nullbasiert) in 5er Schritten
            For k As Integer = i To parts.Length - 1 Step 5
                ' Wert an der Stelle k holen und für diese Gruppe aufsummieren
                sums(i) += CInt(parts(k).Trim)
            Next k
        Next i
 
        ' StringBuilder erstellen und Summen der Gruppen in einen String 
        ' konvertieren (StringBuilder bietet mehr Performance bei 
        ' Zeichenkettenoperationen)
        Dim stb As New System.Text.StringBuilder
        For i As Integer = 0 To 4
            stb.Append(CStr(sums(i)) + ", ")
        Next i
 
        text = stb.ToString