Hola
podrías intentar con esto si tienes una lista de textos
Function FillText() As Boolean
Dim textos As New List(Of String) From {"Uno", "Dos", "Tres", "Cuatro", "Cinco", "Seis"}
For i = 1 To 6
Dim nombre = $"textBox{i}"
Controls(nombre).Text = textos(i - 1)
Next
Return True
End Function