codice:
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
      
        Dim txt As String = RichTextBox1.Text
        Dim InvertTxt As String = ""
        Dim K As Integer = 8

        For idx = 0 To txt.Length - 1 Step K
            If idx < txt.Length - K + 1 Then
                InvertTxt = txt.Substring(idx, K) + InvertTxt

            End If
        Next idx

        RichTextBox1.Text = InvertTxt.ToString

End Sub
Ecco qui il codice, come posso far si che io abbia cioè che mi serve e che ho spiegato nel post sopra ?