Try
            Dim S As String
            S = TextBox1.Text
 
 
            kn1.Text = S.Substring(0, 1)
            kn2.Text = S.Substring(1, 1)
            kn3.Text = S.Substring(2, 1)
            kn4.Text = S.Substring(3, 1)
            kn5.Text = S.Substring(4, 1)
            kn6.Text = S.Substring(5, 1)
            kn7.Text = S.Substring(6, 1)
            kn8.Text = S.Substring(7, 1)
            kn9.Text = S.Substring(8, 1)
            kn10.Text = S.Substring(9, 1)
            kn11.Text = S.Substring(10, 1)
            kn12.Text = S.Substring(11, 1)
            kn13.Text = S.Substring(12, 1)
            kn14.Text = S.Substring(13, 1)
            kn15.Text = S.Substring(14, 1)
            kn16.Text = S.Substring(15, 1)
            kn17.Text = S.Substring(16, 1)
            kn18.Text = S.Substring(17, 1)
            kn19.Text = S.Substring(18, 1)
            kn20.Text = S.Substring(19, 1)
 
        Catch
            Exit Try
        End Try

Schreibe von einem ab, dann ist das Plagiat - schreibe von zweien ab, dann ist das Forschung!