Code:
Dim l() As String = IO.File.ReadAllLines("the text file")
For i As Integer = 0 To l.Length - 1
     Me.Controls("TextBox" & (i + 1).ToString()).Text = l(i)
Next