Ввести в TextBox1 фразу длиной 35 символов, удалить все пробелы и по буквам внести в DataGridView - Visual Basic .NET

Формулировка задачи:

Необходимо ввести в textBox1 фразу длиной 35 символов, удалить все пробелы в этой фразе и по буквам внести ее в DataGridView1 размером 5х7. К примеру фраза "Самый большой фанат сериала во все тяжкие" должна быть представлена с л .... а ь.... м ш...... ы о...... й й....... б ф........ о а.......

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As String = TextBox1.Text
        Dim i, j, k As Integer
        a = Replace(a, " ", "")
        k = 0
        For j = 0 To 6 Step 1
        Next
        For i = 0 To 4 Step 1
        Next
        DataGridView1(i, j).Value = a.Chars(k)
        k = k + 1
        End
        End
    End Sub

Но выдает ошибку на

a.Chars(k)

Индекс за пределами диапазона. Индекс должен быть положительным числом, а его размер не должен превышать размер коллекции. Имя параметра: index Помогите, пожалуйста!

Решение задачи: «Ввести в TextBox1 фразу длиной 35 символов, удалить все пробелы и по буквам внести в DataGridView»

textual
                            Листинг программы 
                        

                            Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim words = "Самый большой фанат сериала во все тяжкие".Replace(" ", "")
    Dim counter = 0
    DataGridView1.Rows.Add(6)
    For column = 0 To 4
        For row = 0 To 6
            DataGridView1(column, row).Value = words(counter)
            counter += 1
        Next
    Next
End Sub
                        