Dim kd As String = My.Computer.FileSystem.ReadAllText("C:\komisch.txt")
 
    Dim lines() As String = kd.Split(" ")
    For i = 0 To lines.Length - 1 Step 3
        Console.WriteLine("{0} {1} {2}", lines(i), lines(i + 1), lines(i + 2))
    Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist