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

        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)