Разделение текста в TextBox на равные части - Visual Basic .NET

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

Нужна программа которая разделяет текст в textbox на равные части.И каждая часть заменяется другим словом заданным с помощью Case.Помогите пожалуйста

Решение задачи: «Разделение текста в TextBox на равные части»

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

                                    Dim Shifer As String = "haspklvbt"
        Dim Out As New System.Text.StringBuilder
        Dim Dict As New Dictionary(Of String, Char)
        Dict.Add("vbt", "q")
        Dict.Add("eyr", "w")
        Dict.Add("pkl", "e")
        Dict.Add("has", "r")
 
        For I As Integer = 0 To Shifer.Length - 1 Step 3
            Out.Append(Dict(Shifer.Substring(I, 3)))
        Next
 
        MsgBox(Out.ToString)
                        