В соответствии с предложением jm c вы также должны извлечь из списка другой элемент:
For i = 1 To 15
Me.Controls(String.Format("TextBox{0}", i)).Text = LISTBOXNAME.Items(i - 1).Value
^^^^^^^^^^^^^^^^^^^^^^^^
Next
Помните, что массивы индексируются с 0
- ничего из этого это отличный способ сделать это, кстати. Ваши текстовые поля должны иметь правильные имена, вы должны проанализировать ваш текст в надлежащие объекты класса с именованными свойствами и т. Д. c .. но если все, что вам нужно, это быстрый взлом сейчас, который будет трудно поддерживать в будущем (как наличие единой формы с X текстовыми полями на именованном textbox1, 2, ... 37 будет), тогда этого будет достаточно