Try
            Dim S As String
            S = TextBox1.Text
 
            For i As Integer = 0 To 19
                For Each c As Control In Me.Controls
                    If TypeOf c Is TextBox Then
                        If CInt(c.Name.Substring(c.Name.Length - 1, 1) - 1) = i _
                          Then
                            c.Text = S.Substring(i, 1)
                        End If
                    End If
                Next
            Next
        Catch
            Exit Try
        End Try

fg viperbone