Visual Basic.NET - Final de archivo

Tengo la siguiente sub:

Private Sub CreaBotones() ' 24 x 18
Dim x As Integer, y As Integer, a As Integer = -1, b As Integer = -1, texto As String
Microsoft.VisualBasic.FileSystem.FileOpen(1, "c:\nombres.txt", OpenMode.Input)

For x = 0 To 920 Step 40
a = a + 1
For y = 175 To 600 Step 25
b = b + 1
Input(1, texto)
Dim btn As New Button ' Creas el objeto boton

With btn
.Name = "boton" + Str(b) ' Asignas el nombre del objeto
.Text = texto 'Str(x) + Str(y) ' Asignas el texto del objeto
.Location = New System.Drawing.Point(x, y) ' Asignas la posición del objeto
.Size = New System.Drawing.Size(40, 25) ' Asignas el tamaño del objeto
End With

AddHandler btn.Click, AddressOf Button_Click ' Asocias el evento al método Button_Click

Me.Controls.Add(btn) ' Agregas el botón al formulario.
Next y, x
End Sub

el fichero nomres.txt tiene muchas filas más de 391 (23 · 17 q son el número de iteraciones que realizan los bucles y y x)

Alguien me puede decir por qué al ejecutarlo me da un error de que se sobrepasa el final del archivo?

Le metí muchas más filas para ver si evitaba que saliera esta excepción pero me continúa dando el mismo problema.

Ya lo resolví. Era cuestión de usar LineImput en puesto de input(1, texto). De la forma siguiente:

texto = Microsoft.VisualBasic.FileSystem.LineInput(1)


Ciao