При выборе строки в ComboBox разбить слово на буквы и записать каждую букву в TextBox

Public Class Form1
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.SelectedItem <> Nothing Then
            Dim parts As String() = ComboBox1.SelectedItem.ToString().Split(":")
            For Each line In parts
                ' line - каждая из частей слова после разделения двоеточием
                For Each symbol In line
                    ' symbol - каждый символ из line
                Next
            Next
        End If
    End Sub
End Class

Dim tBoxes As TextBox(,) = {
    {textBox1, textBox2, ... },  ' первая строка
    { ... },  ' вторая строка
    { ... }   ' третья строка
};

' Вторая строка, 4 символ
tBoxes(1, 3).Text = symbol.ToString()

Public Class Form1
    Const n As Integer = 3               '  
    Const m As Integer = 20              ' 
    Dim TB(n, m) As TextBox              ' 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LoadTextBox()
        ClearTB()
    End Sub
 
    Private Sub LoadTextBox() ' 
        For i As Integer = 1 To n
            For j As Integer = 1 To m
                TB(i, j) = New TextBox
                If i = 1 And j = 1 Then
                    TB(i, j).Left = 30 : TB(i, j).Top = 30     ' 
                    TB(i, j).Width = 30 : TB(i, j).Height = 50 ' 
                Else
                    TB(i, j).Width = TB(1, 1).Width : TB(i, j).Height = TB(1, 1).Height
                    TB(i, j).Top = TB(1, 1).Top + TB(1, 1).Height * (i - 1)
                    TB(i, j).Left = TB(1, 1).Left + TB(1, 1).Width * (j - 1)
                End If
                TB(i, j).TextAlign = HorizontalAlignment.Center
                Me.Controls.Add(TB(i, j))
            Next
        Next
        Me.Width = TB(1, 1).Left + TB(1, 1).Width * (m + 1)
    End Sub
 
    Private Sub ClearTB()
        Dim i, j As Integer
        ComboBox1.Items.Clear()
        Dim s() As String = {"Гулять:Улица:Дождь", "Грязь:Сапоги:Промок", "Зонтик:Лужа:Кашель"}
        For i = 1 To n
            For j = 1 To m
                TB(i, j).Text = "-"
            Next
            ComboBox1.Items.Add(s(i - 1))
        Next
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim i As Integer, j As Integer
        Dim S() As String
        ClearTB()
        S = ComboBox1.Text.Split(":")
        For i = 1 To n
            For j = 1 To Len(S(i - 1))
                TB(i, j).Text = Mid(S(i - 1), j, 1)
            Next j
        Next i
    End Sub
 
End Class

Private Sub Button7_Click_1(sender As Object, e As EventArgs) Handles Button7.Click
        If ComboBox2.SelectedItem <> Nothing Then
            Dim parts As String() = ComboBox2.SelectedItem.ToString().Split(":")
            Dim tri As Integer = 0
            Dim lin2 As Integer = 0
            TextBox40.Focus()
            Do
                For Each line In parts
                    ' line - каждая из частей слова после разделения двоеточием
                    For Each symbol In line
                        ' symbol - каждый символ из line
                        SendKeys.Send(symbol)
                        tri = tri + 1
                        'MsgBox(tri.ToString)
                        'MsgBox(symbol.ToString)
                    Next
                    Do
                        If tri = 20 Then
                        Else
                            SendKeys.Send("-")
                            tri = tri + 1
                        End If
                        Application.DoEvents()
                    Loop Until tri = 20
                    tri = 0
                    lin2 = lin2 + 1
                Next
 
 
                'If tri < "20" Then
                '    SendKeys.Send("-")
                'End If
                Application.DoEvents()
            Loop Until lin2 >= 3
        End If
    End Sub