Grr.. this is really starting to annoy me. I'm trying to read the first thing from each line, but the code I've got is now only reading the first thing on the last line.

Code:
Private Sub Form_Load()
Dim name As String
Dim i As Integer

'to make sure that it starts at i=0
i = -1

Open filename For Input As #1
    While Not EOF(1)
    Input #1, name
    i = i + 1
    Wend
Close #1


lblName(i).Caption = name
Any ideas? Please?

Thanks.