Выгрузить массив с названием текстбоксов - Visual Basic .NET

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

Добрый день, Товарищи. Гружу в txt список состоящий из 1.Название текст бокса 2.ключевое слово и т.д. Пример. ФИО Xp4f1 Должность Xp5f2 Вот как хотелось бы поменять текст.

                    Листинг программы
                
template = template.Replace(ключевое слово,название текст бокса.Text))

ошибка в приведении формата имени текст бокса. Так же, если это важно что боксы на form1, вызываем с другого места.

                    Листинг программы
                
 Dim Massiv() As String = IO.File.ReadAllLines("ШаблонЗамены.txt", System.Text.Encoding.Default)
        Dim perv As System.Windows.Forms.TextBox
        Dim b, vtoroi
 
.....
 
template = template.Replace(vtoroi, (CType(perv, TextBox).Text))

Где perv = х

                    Листинг программы
                
(текст  полученный с помощью )
Dim Massiv() As String = IO.File.ReadAllLines("ШаблонЗамены.txt", System.Text.Encoding.Default)
.....
For Each x In Massiv

Спасибо заранее!

Решение задачи: «Выгрузить массив с названием текстбоксов»

textual
                            Листинг программы 
                        
TextBox1.Text = 123
'                        Имя контролла    тип    свойство контролла
Dim str = TryCast(Controls("TextBox1"), TextBox).Text
MsgBox(str) ' Выведет 123