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

 TextBox1.AppendText(String.Format("{0} {1} {2}", lines(i), lines(i + 1), lines( _
   i + 2)) & vbCrLf)

________
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

kd = Replace(kd, vbCrLf, String.Empty)

        If i + 2 >= lines.Length Then
            MsgBox("Error!")
            Exit For
        End If

________
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